range.cells.copy到range.cells.paste在vba中

您好，我正在试图复制一个特定行的最后一个填充列到下一列的单元格中的一组。 我没有得到任何错误，但值不粘贴。

我的代码：

暗淡作为变种昏暗ee作为变种

ed = ActiveSheet.Cells(55, Columns.count).End(xlToLeft).Column ee = ActiveSheet.Cells(55, Columns.count).End(xlToLeft).Column + 1 ActiveSheet.Range(ActiveSheet.Cells(ed, 55), ActiveSheet.Cells(ed, 68)).Copy ActiveSheet.Range(ActiveSheet.Cells(ee, 55), ActiveSheet.Cells(ee, 68)) Application.CutCopyMode = False 

Answer 1

您已在您的复制声明中转置了行和列。

ActiveSheet.Range(ActiveSheet.Cells(ed, 55), ActiveSheet.Cells(ed, 68)).Copy ActiveSheet.Range(ActiveSheet.Cells(ee, 55), ActiveSheet.Cells(ee, 68))

 ActiveSheet.Range(ActiveSheet.Cells(55,ed), ActiveSheet.Cells(68, ed)).Copy ActiveSheet.Range(ActiveSheet.Cells(55, ee), ActiveSheet.Cells(68, ee)) 

但是有一些更好的方法来实现这个范围的副本。