1. 如果需要在表格的第一列插入序号,只需将 For Each...Next 结构中的内容改为下述程序行即可,其中InsertAfter 方法用来向表格单元格添加序号( "第 1 行 "、 " 第2 行 "等等)。
If iCount Mod 4 = 1 Then
oCell.Range.InsertAfter "第 " & (iCount - 1) / 4 + 1 & " 行 "
End If
iCount = iCount + 1
2. 如果需要从表格的第二行开始插入序号,应将上述代码改为:
If iCount Mod 4 = 1 And iCount > 4 Then
oCell.Range.InsertAfter
用 Add-Ins菜单里的 Package and Deployment Wizard 向导 是个好建议。
VB的自动安装程序没有什么现成的代码,倒是有一小堆要求。按那个向导的要求一步一步做对了,就能生成你要的自动安装程序。
楼主可以考虑
用 Add-Ins菜单里的
Package and Deployment Wizard 向导!
程序的相
下次
fgjhgjhgjk