If 函数的运行逻辑

Terry_D

各位大神
我在运行下面这段函数的时候，系统提示运行错误“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

mnmb

If sht.Name <> "sheet1" Then
需要改为
If sht.Name <> "Sheet1" Then
Sheet1前面的S是大写的

Terry_D

mnmb 发表于 2020-8-26 16:27
If sht.Name  "sheet1" Then
需要改为
If sht.Name  "Sheet1" Then

谢谢提醒。还真的从来没注意过这里