[已解决]根据WORD第一行第一个单元格的数字决定复制行数

LMY123

复制一行数据 －原始.rar (6.97 KB, 下载次数: 11)

2016-8-27 17:54 上传

点击文件名下载附件
WORD

复制一行数据 －结果.rar (7.15 KB, 下载次数: 7)

2016-8-27 17:54 上传

点击文件名下载附件
WORD

duquancai

1. Sub shishi()
   
2.     Dim i%, j%, k%
   
3.     i = Split(ActiveDocument.Tables(1).Cell(1, 1).Range, Chr(13))(0)
   
4.     With ActiveDocument.Tables(1)
   
5.         For j = 2 To i
   
6.             For k = 2 To .Rows(j).Cells.Count
   
7.                 .Rows(j).Cells(k).Range.Text = Split(.Rows(1).Cells(k).Range, Chr(13))(0)
   
8.             Next
   
9.         Next
   
10.     End With
    
11. End Sub

复制代码

LMY123

duquancai 发表于 2016-8-27 23:30

感谢帮助，效果非常好