Question

得到一个错误1004： 我们可以对合并的单元格执行该操作。为什么？我该如何解决？我想将twb中的单元格复制到extwb ... 这段代码就像=运行->出现错误->重置宏->重新运行->有效

package.json

Answer 1

您已在extwb.Worksheets("PAID")中合并了要粘贴的单元格。

那是行不通的-.Copy源必须具有相同的大小，即，如果在目标范围内合并了两个单元格，则在源范围内需要有两个合并的单元格。

您可以通过以下方法解决此问题：

extwb.Worksheets("PAID").Range("A" & lastRow & ":E" & lastrow).Unmerge
rng.Cells(i, 1).Copy extwb.Worksheets("PAID").Cells(lastRow, 1)
rng.Cells(i, 2).Copy extwb.Worksheets("PAID").Cells(lastRow, 2)
rng.Cells(i, 3).Copy extwb.Worksheets("PAID").Cells(lastRow, 3)
rng.Cells(i, 4).Copy extwb.Worksheets("PAID").Cells(lastRow, 4)
rng.Cells(i, 5).Copy extwb.Worksheets("PAID").Cells(lastRow, 5)

错误1004：我们可以对合并的单元格执行此操作。为什么？

1 个答案: