将列追加到数据底部时出现问题

Question

我的目标是从 G 列剪切到 I(不带标题(，然后从 D 列到 F 列下的下一个可用行开始粘贴数据。然后我需要将 A 列复制到 C 列并将重复数据粘贴到其正下方。

这段代码实际上适用于我的 4 个文件，但现在它给了我一个错误，说我应该粘贴到相同大小的矩形或单个单元格。我已经尝试了很多在板上找到的代码，但没有任何东西可以修复此错误。没有合并的单元格。

非常感谢所有帮助！

Dim lastRow As String
lastRow = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row + 1
Range("G2:I" & LastR).Select
Selection.Copy
Range("D" & lastRow).PasteSpecial xlPasteValues
Range("A2:C" & LastR).Select
Selection.Copy
Range("A" & lastRow).PasteSpecial xlPasteValues

Answer 1

试试第二行下面的评论 activesheet.cells.unmerge它将取消合并工作表中的所有单元格。另外不要忘记检查最后一行和 Lastr 的值。SMT 喜欢这会起作用。如果最后一行<2则最后一行=2结束时间