求EXCEL VBA 运行时错误1004 应用程序定义或对象定义错误解决方法？

wisdomlee

Sub liucheng()

    '工序B6循环遍历
    '定义SH、i、j变量

Dim SH As Worksheet
Dim i&, j&

        '遍历循环所有表格（大概100个工作表）：如果名字不是WIP工作表，那么对盘点表进行汇总，选中所有B6的单元格。

        For Each SH In Worksheets

            If SH.Name <> "WIP" Then

                '这里（“c80000”）是所选的区域

               j = Sheets("WIP").Range("c80000").End(xlUp).Row
               i = SH.Range("b6").End(xlDown).Row

               '选中工作表中 B6 开始的 B 列，复制到盘点表中C1开始。

               SH.Range("b6:b" & i).Copy Sheets("WIP").Range("c1").Offset(j, 0)


            End If

        Next

End Sub

以上是代码部分，可以成功复制出前10张工作表的内容，然后就会报错1004，请问是代码的问题么？

shiruiqiang

好像定义 i = SH.Range("b6").End(xlDown).Row不行
如果某张表b7为空很容易出错。个人理解