问题将列附加到数据底部

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喜欢这个会起作用。 如果lastrow <2那么 LASTROW = 2 如果

结束