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

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

2、然后按下快捷键ALT+F11打开VBA（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。

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

4、回到工作表窗口，先选要加序号单侍厚治越元格，再运行【选单元格内容每段加序号】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名），生成序号如下图。

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