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

1、图1是在一个合并的单元格有多行内容，怎样快速把每段内容加上序号，如图2。

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

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

3、然后插入了一个模块1，在代码框中复制如下代码：

Option Base 1

Sub 选单元格内容每段加序号()

'2020-1-2 22:21:42

Dim mb, m As String, i As Long, j As Long, mm As String

Dim cmt As Range

For 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 If

 End If

Next cmt

End Sub

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

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

1、可以批量处理多个单元格的每个单元格每段内容加上序号。