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

Faisal Abraham 发表于 Dev

费萨尔·亚伯拉罕

出现错误 1004： 我们可以对合并的单元格执行此操作..

为什么？

我该如何解决？

我想将 twb 中的单元格复制到 extwb ...

这段代码就像 = 运行 -> 出错 -> 重置宏 -> 再次运行 -> 它工作

Sub Ke1()

Dim twb As Workbook
Dim extwb As Workbook
Dim rng As Range
Dim i As Long
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1


Set twb = Workbooks.Open("C:\Users\faisal.abraham\Documents\Faisal\Travel\CCCPU030732017.xlsx")
Set extwb = Workbooks.Open("C:\Users\faisal.abraham\Documents\Faisal\Travel\CCCPU030732018.xlsx")
'Set twb = Application.Workbooks("CCCPU030732017.xlsx")
'Set extwb = Application.Workbooks("CCCPU030732018.xlsx")

Set rng = twb.Worksheets("PAID").Range("A1:E500")
For i = 5 To rng.Cells(Rows.Count, 2).End(xlUp).Row

    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)
      
    lastRow = lastRow + 1
    
Next i

twb.Close savechanges:=False
extwb.Saved = True

End Sub

里克·斯波特尔

您已合并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)

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。