|
2学分
各位大神
我在运行下面这段函数的时候,系统提示运行错误“1004”。
然后通过Msgbox 得知问题在于第一次运行时,根据sheet1 的数据得到的i=0.
但是sheet1 已经被我用if函数排除了,为什么VBE还是会计算sheet1 呢?
VBA 初学者,勿笑
Sub HB()
Dim i As Integer, rng As Range, sht As Worksheet
Worksheets("sheet1").Rows("2:100000").Clear
For Each sht In Worksheets
If sht.Name <> "sheet1" Then
Set rng = Worksheets("sheet1").Cells("10000", "A").End(xlUp).Offset(1, 0)
i = sht.UsedRange.Rows.Count - 1
MsgBox "i=" & i
sht.Range("A2").Resize(i, 4).Copy rng
End If
Next sht
End Sub
|
最佳答案
查看完整内容
If sht.Name "sheet1" Then
需要改为
If sht.Name "Sheet1" Then
Sheet1前面的S是大写的
|