Excel单元格每段前面自动添加序号

1、点击【开发工具】、【Visual Basic】调出VBE编辑器。

2、点击【插入】、【模块】。

3、在模块代码框里边输入以下VBA程序代码。

Sub InterNumber()

Dim i1, i2, i3, i4, i5, str1, str2

On Error Resume Next

Application.ScreenUpdating = False '关闭显示更新

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义Sheet1

 For i1 = 2 To 1000 '从第2行到1000行

  If mysheet1.Cells(i1, 1) <> "" Then '如果单元格不为空白，则

   i2 = Len(mysheet1.Cells(i1, 1)) '获取单元格字符个数

   i4 = 0

   str1 = ""

   str2 = ""

   For i3 = 1 To i2

    i4 = i5 '存放上次换行符的位置

    i5 = InStr(i4 + 1, mysheet1.Cells(i1, 1), Chr(10)) '判断换行符的位置

    If i5 = 0 Then '如果不存在换行符，则

     str1 = Right(mysheet1.Cells(i1, 1), i2 - i4) '截取字符（最后一行）

     str2 = str2 & i3 & "、" & str1 '字符拼接

     Exit For '退出For循环

    Else

     str1 = Mid(mysheet1.Cells(i1, 1), i4 + 1, i5 - i4 - 1) '截取字符

     str2 = str2 & i3 & "、" & str1 & Chr(10) '字符拼接

    End If

   Next

  mysheet1.Cells(i1, 2) = str2 '将拼接后的字符写入单元格

 End If

Next

Application.ScreenUpdating = True '恢复屏幕显示更新

End Sub

4、检查无误后，在VBE编辑器的功能区里边点击“运行”图标运行程序。

5、回到Excel界面，将会看到执行的结果。