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

Question

嗨，我正在尝试将单元格上的集合从特定行的最后一个填充列复制到下一列。我没有收到任何错误，但值没有被粘贴。

我的代码：

Dim作为变体Dim 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))

但是有很多更好的方法来实现这个范围复制。