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

wisdomlee

复制所有的B6表格.rar (1.5 MB, 下载次数: 11)

2021-2-7 15:20 上传

点击文件名下载附件
内容

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，请问是代码的问题么？

3190496160

一直不愿上传附件，爱莫能助啊

wisdomlee

3190496160 发表于 2021-2-7 15:58
一直不愿上传附件，爱莫能助啊

有附件的，就是那个压缩包“复制所有的B6表格”，可以帮忙看下么？

3190496160

i = SH.Range("b6").End(xlDown).Row
这种方式获取B列有效数据的最大行的行号，如果B列[b6]单元格以下为空，则获取的就是工作表的最大行号，1048576，所有肯定就会出现错误，拷贝区域与粘贴区域大小不一致，
修改为
i = SH.Cells(Rows.Count, 2).End(xlUp).Row
在增加一个判断
If i >= 6 Then SH.Range("b6:b" & i).Copy Sheets("WIP").Range("c1").Offset(j, 0)

3190496160

Sub liucheng()
    '工序B6循环遍历
    '定义SH、i、j变量
Dim SH As Worksheet
Dim i&, j&
        '遍历循环所有表格：如果名字不是WIP工作表，那么对盘点表进行汇总，选中所有B6的单元格。
        For Each SH In Worksheets
            If SH.Name <> "WIP" Then
                mc = SH.Name
                '这里（“a80000”）是所选的区域，不用更改
               j = Sheets("WIP").Range("c80000").End(xlUp).Row
               i = SH.Cells(Rows.Count, 2).End(xlUp).Row
               '选中工作表中 B6 开始的 B 列，复制到盘点表中A1开始。
               If i >= 6 Then SH.Range("b6:b" & i).Copy Sheets("WIP").Range("c1").Offset(j, 0)
            End If
        Next
End Sub

3190496160

3190496160

要循环遍历100多个工作表，代码采取逐一拷贝的方式，效率不高的，楼主可以尝试用数组，一次性赋值，效率会高很多的

wisdomlee

3190496160 发表于 2021-2-10 09:23
要循环遍历100多个工作表，代码采取逐一拷贝的方式，效率不高的，楼主可以尝试用数组，一次性赋值，效率会 ...

非常抱歉没能及时回复你的消息。
根据你的指点，可以实现既定效果。我再去试试你说的另一种编写方法。
非常感谢你的指点，新年快乐，愿新的一年里都可以万事胜意。