各位老师，请问怎么做到表格里文字前面编号

rays8029

各位老师，请问怎么做到表格里文字前面编号。
如图下面的表格，需要在文字前面编号。现在的效果是手动设置的。
合并那行不需要编号，没有图片那个单元格也不需要编号。

zpy2

直接数据生成报表还行，仅仅加编号感觉更难

rays8029

用VBA很难完成这个效果吗？

413191246se

* 楼主，你好！——以后问问题的时候，可以这样问：“请给个VBA代码”或“怎么用VBA解决这个问题”，这样大家就知道你会用VBA了！另外，问问题的时候最好要上传一个示例附件。
* 我给你写了一个VBA代码，算抛砖引玉吧！仅供参考！
* 请将代码复制到空白文档后，全选，剪切，再粘贴到 VBE 中，执行之。

1. Sub AutoNumCell()
   
2.     Dim t As Table, c As Cell, w!, n&
   
3.     For Each t In ActiveDocument.Tables
   
4.         With t.Range
   
5.             w = .Cells(1).Width
   
6.             For Each c In .Cells
   
7.                 With c.Range
   
8.                     If .Text Like "[0-9０-９A-Za-zＡ-Ｚａ-ｚ]*" Then
   
9.                         .Select
   
10.                         If Selection.Cells(1).Width < w Then
    
11.                             If Not .Text Like "N/A*" Then
    
12.                                 n = n + 1
    
13.                                 .InsertBefore Text:=n & "．"
    
14.                                 .Font.ColorIndex = wdRed
    
15.                             End If
    
16.                         End If
    
17.                     End If
    
18.                 End With
    
19.             Next
    
20.         End With
    
21.     Next
    
22. End Sub

复制代码

batmanbbs