菜鸟新人求助，下面这个VBA是想把工作表都清空，但运行起来没效果，i的值到是对的

噬魂feel

Sub excel清空()
'
' excel清空 宏
'

'
Dim i As Integer
Dim Sh As Worksheet
i = 1
For Each Sh In Worksheets           
    Cells.Select
    Selection.ClearContents
    With Selection.Interior
        .Pattern = xlNone                 
        .TintAndShade = 0                 
        .PatternTintAndShade = 0
    End With
    Rows("1:2").Select
    Selection.Delete Shift:=xlUp         
    Columns("A:AH").Select               
    Selection.ColumnWidth = 8.17
    i = i + 1
Next
    MsgBox "i的值为:" & i
End Sub
菜鸟新人，刚接触VBA，先录制了一个宏，然后想用for循环把每个sheet都应用一遍，但是没有效果

小辛呀小辛

1. Sub 清空()
   
2. Dim sht As Worksheet
   
3. For Each sht In Worksheets
   
4.     sht.UsedRange.Clear
   
5. Next
   
6. End Sub
   

复制代码

看了楼主的代码好像没发现啥错误，但是i的初始值不应该是0吗？

噬魂feel

小辛呀小辛 发表于 2015-10-29 21:10
看了楼主的代码好像没发现啥错误，但是i的初始值不应该是0吗？

谢谢，赋值应该没规定只能给1吧

小辛呀小辛

噬魂feel 发表于 2015-10-29 21:28
谢谢，赋值应该没规定只能给1吧

我误以为你的i是用来统计工作表的个数