求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

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

               j = Sheets("WIP").Range("c30000").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，请问是代码的问题么？

3190496160

没有附件的求助帖子，一般不会得到完美的答案，请上传你的附件

wisdomlee

3190496160 发表于 2021-2-5 13:50
没有附件的求助帖子，一般不会得到完美的答案，请上传你的附件

好的，谢谢提醒