excel单元格内数据按换行增加标号

alt+F11,将代码下边代码保存在vba里

Sub AddLineNumber()
    Dim cell As Range
    Dim lines() As String
    Dim i As Integer
    
    ' 遍历选定的单元格
    For Each cell In Selection
        ' 按换行符分隔单元格内容
        lines = Split(cell.Value, Chr(10))
        ' 逐行添加序号和内容
        For i = LBound(lines) To UBound(lines)
            lines(i) = (i + 1) & ". " & lines(i)
        Next i
        ' 将处理后的内容重新组合并写回到单元格中
        cell.Value = Join(lines, Chr(10))
    Next cell
End Sub

在开发工具里点击宏执行保存的vba