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

【问题标题】：How to select multiple cells and copypaste to another sheet?如何选择多个单元格并复制粘贴到另一张纸上？
【发布时间】：2015-05-15 22:59:30
【问题描述】：

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

我的代码是这样的：

Union(Range("C4,C5,I4,I5,J7"), Range("C4, C5, I4, I5, J7")).Select

选择.复制

选择单元格的代码，但是在转到“选择。复制”参数时，它会给出运行时错误“1004” "该命令不能用于多选。"

谁能帮我解决这个问题？

【问题讨论】：

看看stackoverflow.com/help/how-to-ask

标签： vba excel

【解决方案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

【讨论】：

它现在正在复制和粘贴，但是我希望所有单元格都应该在转置模式下粘贴我确实有以下代码：Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=假，转置：=真
我希望所有单元格一次性复制并粘贴为值 Transpose=true

【解决方案2】：

使用此代码粘贴到 Sheet 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

【讨论】：