[已解决]如何批量删除不同工作簿同一单元格的内容？

bbboooaaaiii

如何批量删除不同工作簿中同一单元格的内容（只需清空一个单元格的内容即可）呢？
比如同时清空若干不同工作簿中的Sheet1!G3内容
敬请各位老师帮忙

最佳答案

月排行榜 / 总排行榜

zjdh

2012-1-3 15:50

1. Sub test()
   
2.     Set Myf = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件目录：", &H1)
   
3.     If Not Myf Is Nothing Then
   
4.         Directory = Myf.self.Path
   
5.     End If
   
6.     MyName = Dir(Directory & "\*.xls")
   
7.     Do While MyName <> ""
   
8.         Workbooks.Open (Directory & "" & MyName)
   
9.         ActiveSheet.Range("G3") = ""
   
10.         ActiveWorkbook.Close True
    
11.         MyName = Dir
    
12.     Loop
    
13. End Sub

复制代码

跳转到最佳答案楼层

bbboooaaaiii

有人说“简单得很，用DIR遍历，然后替换成""，变OK了。”
望高手解答

hongliang224

先选择第一个工作表，按住shift键同时单击最后一个工作表，这样所有的工作表都选中了，然后再在任意工作表选中你要删除的单元格后，按del 键就可以删除所有工作表中的相同单元格的类容了！

hongliang224

晕，看错题目了，我以为是同一工作簿的不同工作表！？

hongliang224

1. Sub a()
   
2. Dim x, y
   
3. For x = 1 To Workbooks.Count
   
4. For y = 1 To Worksheets.Count
   
5. Workbooks(x).Worksheets(y).[a1:a11].Clear
   
6. Next
   
7. Next
   
8. End Sub

复制代码

看这样行不行，vba代码试哈！

zjdh

1. 
   
2. Sub test()
   
3.     Set Myf = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件目录：", &H1)
   
4.     If Not Myf Is Nothing Then
   
5.         Directory = Myf.self.Path
   
6.     End If
   
7.     MyName = Dir(Directory & "\*.xls")
   
8.     Do While MyName <> ""
   
9.         Workbooks.Open (Directory & "" & MyName)
   
10.         ActiveSheet.Range("G3") = ""
    
11.         ActiveWorkbook.Close True
    
12.         MyName = Dir
    
13.     Loop
    
14. End Sub

复制代码

hongliang224

[a1:a11]为你要清空的单元格区域，可以自己改成你想清除的单元格位置，在清除内容时工作簿必须都是打开的！

kakaco

我也算学习了。虽然看不懂。（V白白的人。）

bbboooaaaiii

hongliang224 发表于 2012-1-3 09:00
[a1:a11]为你要清空的单元格区域，可以自己改成你想清除的单元格位置，在清除内容时工作簿必须都是打开的！

谢谢老师的解答，可是工作簿太多，寻求不用一一打开工作簿能解决问题的办法。

zjdh

bbboooaaaiii 发表于 2012-1-3 11:08
谢谢老师的解答，可是工作簿太多，寻求不用一一打开工作簿能解决问题的办法。

6楼不用预先打开工作簿的帖子视而不见？！！