[已解决]如何清空表1.xls内所有工作表A1至D10单元格的数据？

香满园

比如以下这段代码在表2.xls工作簿中，想要对指定的工作簿“表1.xls”内的所有A1至D10单元格的数据清空，该如何改写以下代码呢？
Sub text()
    Dim sh As Worksheet
    For Each sh In Worksheets
        sh.Range("A1:D10").ClearContents
    Next
End Sub

最佳答案

月排行榜 / 总排行榜

adders

2012-2-20 23:18

香满园 发表于 2012-2-20 09:57
Sub text()
    Dim sh As Worksheet

首先,"表1.xls"是工作簿名而非工作表,也就是引用时,应用Workbooks("表1.xls"),而非Worksheets

其次,For Each worksheets("表1.xls").sh In Worksheets应为:For Each sh In Workbooks("表1.xls").Worksheets,意思是,在工作簿"表1.xls"的每一个工作表中循环.

你也可以将sh改为其他变量名称,如st, sht, sheet, a, b, x, mysheet等等.体会一下这个意思

跳转到最佳答案楼层

灰太狼独霸江湖

学习了，谢谢楼主。

wenchduan

楼主是提问还是。。。

香满园

wenchduan 发表于 2012-2-20 22:36
楼主是提问还是。。。

提问呀，不知2楼为什么这么说？

香满园

wenchduan 发表于 2012-2-20 22:36
楼主是提问还是。。。

Sub text()
    Dim sh As Worksheet

    For Each worksheets("表1.xls").sh In Worksheets
        worksheets("表1.xls").sh Range("A1:D10").ClearContents
    Next
End Sub
以上红色部分我加上之后，就出错，所以特来提问的！！

wenchduan

1. 
   
2. Sub text()
   
3.     Dim sh As Worksheet
   
4.     For Each sh In Worksheets
   
5.         sh.Range("A1:D10").ClearContents
   
6.     Next
   
7. End Sub

复制代码

adders

香满园 发表于 2012-2-20 09:57
Sub text()
    Dim sh As Worksheet

首先,"表1.xls"是工作簿名而非工作表,也就是引用时,应用Workbooks("表1.xls"),而非Worksheets

其次,For Each worksheets("表1.xls").sh In Worksheets应为:For Each sh In Workbooks("表1.xls").Worksheets,意思是,在工作簿"表1.xls"的每一个工作表中循环.

你也可以将sh改为其他变量名称,如st, sht, sheet, a, b, x, mysheet等等.体会一下这个意思

cbg2008

Sub text()
    Dim sh As Worksheet
    For Each sh In Workbooks("表1.xls").Worksheets
        sh.Range("A1:D10").ClearContents
    Next
End Sub

香满园

adders 发表于 2012-2-20 23:18
首先,"表1.xls"是工作簿名而非工作表,也就是引用时,应用Workbooks("表1.xls"),而非Worksheets

其次,Fo ...

谢谢，明白了！！{:091:}