Excel怎样快速在单元格内换行每一段字前加序号

1、首先打开上例文件，如下图。

3、然后插入了一个模块1，在代码框中复制如下代码：Option Base 1Sub 选单元格内容每段加序号()'2020-1-2 22:21:42Dim mb荑樊综鲶, m As String, i As Long, j As Long, mm As StringDim cmt As RangeFor Each cmt In Selection m = cmt.Text If cmt.Text <> "" Then If InStr(1, m, Chr(10), 1) > 0 Then mb = Split(m, Chr(10)) j = 0 For i = 0 To UBound(mb) j = j + 1 If j = 1 Then mm = j & "." & mb(i) Else mm = mm & Chr(10) & j & "." & mb(i) End If Next i cmt.Value = mm End IfEnd IfNext cmtEnd Sub

5、操作过程和运行结果动态操作如下图：