如何选择多个单元格并粘贴到另一张纸上？

Question

我想选择多个单元格，然后选择多个单元格，然后复制并粘贴其他工作表中的值。

我的代码是这样的：

联合（范围（“ C4，C5，I4，I5，J7”），范围（“ C4，C5，I4，I5，J7”））。选择

选择复制

代码选择单元格，但是在进入“选择。复制”参数时，它给出运行时错误'1004'“该命令不能用于多个选择。”

谁能帮我解决这个问题？

Answer 1

我一次可以做一次：

Sub Disjoint()
  Dim rng As Range, r As Range, addy As String
  Set rng = Sheets("Sheet1").Range("A1,B3,C5,D7,E11")
  For Each r In rng
    addy = r.Address
    r.Copy Sheets("Sheet2").Range(addy)
  Next r
End Sub

Answer 2

使用此代码将其粘贴到工作表2第1行中的下一个可用列

Sub Button1_Click()
    Dim rng As Range, c As Range
    Set rng = Range("C4,C5,I4,I5,J7")
    For Each c In rng.Cells
        c.Copy Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
    Next c
End Sub