将上次使用的列范围复制并粘贴到下一列范围答案

【问题标题】：copy and past last used column range into next column range将上次使用的列范围复制并粘贴到下一列范围
【发布时间】：2015-07-13 16:29:09
【问题描述】：

我对 VBA 非常陌生，当我阅读上一篇文章时，我在将范围中最后使用的列复制并过去到新列范围时遇到问题，具体而言，它只是将整个列复制并传递到下一列，如下所示

Private Sub CommandButton1_Click()
  Dim col As Integer
  col = Range("A1").End(xlToRight).Column
  Columns(col).Copy
  Columns(col + 1).Insert Shift:=xlToRight
  Columns(col).Select
  Selection.Copy
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
End Sub

从上面的代码中，我可以将整列复制到下一列并硬编码上一列，但我不知道如何仅复制行中的某些范围，例如：E 列，仅复制 5:10 行。请在这件事上帮助我。

还有一件事，如果我需要在另一个活动表中创建宏底部，代码更改是什么？

【问题讨论】：

标签： excel vba

【解决方案1】：

Private Sub CommandButton1_Click()
  Dim col As Integer
  col = Range("A1").End(xlToRight).Column
  Range(Cells(5, col), Cells(10, col)).Copy Destination:=Range(Cells(5, col + 1), Cells(10, col + 1))
End Sub

【讨论】：