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

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

3、在模块代码框里边输入以下VBA程序代码。Sub InterNumber()Dim 坡纠课柩i1, i2, i3, i4, i5, str1, str2On Error Resume NextApplication.ScreenUpdating = False '关闭显示更新Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义Sheet1For 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 IfNextApplication.ScreenUpdating = True '恢复屏幕显示更新End Sub

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