Question

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

我的代码是：

联盟（范围（＆＃34; C4，C5，I4，I5，J7和＃34;），范围（＆＃34; C4，C5，I4，I5，J7和＃34;））。选择

Selection.Copy

代码选择单元格，然而进入＆＃34;选择。拷贝＆＃34;它给运行时错误＆＃39; 1004＆＃39; ＆＃34;该命令不能用于多个选择。＆＃34;

任何人都可以帮我解决这个问题吗？

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

如何选择多个单元格和copypaste到另一张表？

2 个答案: