VBA：复制单元格直到找到空单元格1004

我想从工作簿IID.xlsm复制E列中的值，直到找到空单元格。并将它们粘贴到Placeholder.xlsm列A中

我有下面的代码，但在第三行有一个错误

Dim cnt As Long 'add this to your declarations area
With Workbooks("IID.xls").Sheets("Outage Request List")
    cnt = .Range("A5", .Cells(Rows.Count, 2).End(xlUp)).Rows.Count
    Workbooks("Placeholder.xlsm").Sheets("Sheet1").Range("E5").Resize(cnt).Value = _
    .Range("A5", .Cells(Rows.Count, 2).End(xlUp)).Value
End With

---

错误1004:应用程序定义的错误或对象定义的错误

您试图将两列范围的值分配给一列。您想要两列还是只想要1。但是出现错误是因为在最后一行的第二行的

单元格（行…

）之前缺少

。只需要1列。添加了“.”但仍然得到相同的错误。@ScottCraner可以输入上面的代码以显示更改吗？如果

工作簿（“IID.xls”）

不是活动工作簿，实际活动工作簿是

.xlsx

/

.xlsm

然后

.Range（“A5”，.Cells（Rows.Count，2）.End（xlUp））.Rows.Count

将出错。这是因为

Rows.Count

（在

.Cells（…）

内）将返回活动工作表的行数=1048576，大于

.xls

上的行数，导致范围引用无效。若要修复此问题，请更改为

.rows.count