修法布施得聪明智慧，多分享让生活更美好。下面通过一个实例分享Excel怎样快速在单元格内换行每一段字前加序号？工具/原料moreMicrosoft Office Excel 2007Excel VBA实例问题1/1分步阅读

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

处理方法步骤1/5

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

2/5

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

3/5

然后插入了一个模块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/5

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

5/5

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

其它应用1/1

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

换行内容加序号VBAEXCEL序号