3
这适用于另一个文件,但不适用于当前非常大的Excel文件。它从每个工作表中复制所有列P & Q,并将它们发布到合并的新工作表中。它也删除所有空白单元格。我得到一个运行时错误429“Activex组件不能创建对象”可以有人帮助吗?该代码在Excel的另一个非常小的文件上工作,但不会在新的工作簿上产生相同的结果。从以前的“小型工作书”到新工作书中的所有专栏都是一样的。唯一改变的是工作表的数量。这是650(不要法官)错误429将单元复制到新工作表时,“Activex组件无法创建对象”Colum
Sub merge()
Dim Sh As Worksheet, ShM As Worksheet, i&, z&
Application.ScreenUpdating = 0
Set Sh = Worksheets.Add(, Sheets(Sheets.Count))
Sh.Name = "consolidated"
For Each ShM In ThisWorkbook.Worksheets
If ShM.Name <> Sh.Name Then
i = ShM.Cells(Rows.Count, 17).End(xlUp).Row
z = Sh.Cells(Rows.Count, 2).End(xlUp).Row + 1
While (z > 1) And (Sh.Cells(z, 2).Value = "")
z = z - 1
Wend
ShM.Activate: ShM.Range(Cells(1, 16), Cells(i, 17)).Copy
Sh.Activate: Sh.Cells(z, 1).PasteSpecial xlPasteValues
End If
Next ShM
Application.ScreenUpdating = 1
End Sub