如何用VBA代码实现目标单元格大批复制

9532

有上百页的相同Word表格，需要复制出每个的第2行第6个单元格的内容，请教下老师们这个用VBA怎么实现

ming0018

复制到哪里，这种例子论坛非常多了，可以搜一下。

9532

要把整个表格每一页的第2行第6个单元格选中复制粘贴到别的文件里

413191246se

不劳 ming 老师 出手，我先抛砖引玉，请 楼主 试用：

1. Sub aaaa单元格批量复制()
   
2.     Dim t As Table, s$, i$
   
3.     For Each t In ActiveDocument.Tables
   
4.         s = t.Range.Cells(9).Range.Text
   
5.         s = Left(s, Len(s) - 2)
   
6.         i = i & "/" & s
   
7.     Next
   
8.     ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
   
9.     Documents.Add.Content.Text = i
   
10.     With ActiveDocument
    
11.         .Content.Find.Execute "/", , , 1, , , , , , "^p", 2
    
12.         .Characters(1).Delete
    
13.     End With
    
14.     ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
    
15.     MsgBox "处理完毕！文档尚未保存！", 0 + 16
    
16. End Sub

复制代码

9532

413191246se 发表于 2020-6-11 04:25
不劳 ming 老师 出手，我先抛砖引玉，请 楼主 试用：

按老师的代码来，只能复制第一页的，其余别的上百页目标单元格的内容没有还把文件给关闭了。老师，只想把整个word的每页第2行第6个单元格全部复制。

ming0018

413191246se 发表于 2020-6-11 04:25
不劳 ming 老师 出手，我先抛砖引玉，请 楼主 试用：

有人说你的代码不行，赶紧再出手！

413191246se

回 楼主  和 ming 老师：我的代码，在我的最新联想Geekpro 电脑上，Windows10-64位，Word2019家庭和学生版上，针对你提供的附件，运行非常地 OK！——请楼主重新试试！

9532

413191246se 发表于 2020-6-11 16:26
回 楼主  和 ming 老师：我的代码，在我的最新联想Geekpro 电脑上，Windows10-64位，Word2019家庭和学生版 ...

老师，我上传的表格试了下确实没问题。用我需要实现的2个word用了下分别是复制了1个、3个。是不是和word表格的分页符有关系啊，上传的表格里每页一个分页符，我需要用的里很少有分页符。

413191246se

楼主，你测试是用你提供的附件吗？你的 Word 版本是多少的？我是 Word2019，测试正常。
另外，楼主，你提供的附件，里面目标单元格，应该为：“复制1”、“复制2”……，这样才能分得清，你的全是“复制”，不好区别。——请重新测试一下。

413191246se

楼主，在我 Word2019 中用你的附件，用我上传的代码又测试一遍，运行正常！——请重新测试一下。