如下图所示，要给单元格里面的每一段前面添加序号，手动操作的话工作量比较大，该如何操作？
工具/原料
操作设备：计算机
操作系统：Windows7
办公软件：Excel2010
方法/步骤
1、点击【开发工具】、【VisualBasic】调出VBE编辑器。
2、点击【插入】、【模块】。
3、在模块代码框里边输入以下VBA程序代码。SubInterNumber()Dim坡纠课柩i1,i2,i3,i4,i笙剽茑镙5,str1,str2OnErrorResumeNextApplication.ScreenUpdating=False'关闭显示更新Setmysheet1=ThisWorkbook.Worksheets("Sheet1")'定义Sheet1Fori1=2To1000'从第2行到1000行Ifmysheet1.Cells(i1,1)<>""Then'如果单元格不为空白，则i2=Len(mysheet1.Cells(i1,1))'获取单元格字符个数i4=0str1=""str2=""Fori3=1Toi2i4=i5'存放上次换行符的位置i5=InStr(i4+1,mysheet1.Cells(i1,1),Chr(10))'判断换行符的位置Ifi5=0Then'如果不存在换行符，则str1=Right(mysheet1.Cells(i1,1),i2-i4)'截取字符（最后一行）str2=str2&i3&"、"&str1'字符拼接ExitFor'退出For循环Elsestr1=Mid(mysheet1.Cells(i1,1),i4+1,i5-i4-1)'截取字符str2=str2&i3&"、"&str1&Chr(10)'字符拼接EndIfNextmysheet1.Cells(i1,2)=str2'将拼接后的字符写入单元格EndIfNextApplication.ScreenUpdating=True'恢复屏幕显示更新EndSub
4、检查无误后，在VBE编辑器的功能区里边点击“运行”图标运行程序。
5、回到Excel界面，将会看到执行的结果。
