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

2 回答

• 0

  我会一次做一件：

  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
  

  回复于 2024-05-01T00:47:30+08:00
• 0

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

  回复于 2024-05-01T00:47:30+08:00