使用粘貼在某些條件下將單元格值從一張紙復制到另一張紙

Question

您好，我正在嘗試制作一個宏，該宏將從Sheet1的所有200個值從A1復制到A2，並將其粘貼到Sheet 2中，但是粘貼操作應將它們分別粘貼在2列和3行空間中。

Sheet1(A1) => Sheet2(A1)
Sheet1(A2) => Sheet2(B1)

Sheet1(A3) => Sheet2(A5)
Sheet1(A4) => Sheet2(B5)    

Sheet1(A5) => Sheet2(A9)
Sheet1(A6) => Sheet2(B9)

如您所見，間隔是+3個單元格。 到目前為止，我所做的是復制單個單元格，並且需要任何幫助或建議如何從上方進行復制過程。

Sub CopySelection()
  Dim xlSel As Excel.Range
  Set xlSel = Excel.Application.Selection
  For i = 0 To 200
  xlSel.copy Excel.Application.Sheets("Sheet2").Range("A1")
  Next i
End Sub

任何幫助都將受到歡迎。

Answer 1

您可以這樣做：

Dim Destination_Row As Integer
Destination_Row = 1
For Origin_Row = 1 To 200 Step 2
    Sheet2.Cells(Destination_Row, 1).Value = Sheet1.Cells(Origin_Row, 1).Value
    Sheet2.Cells(Destination_Row, 2).Value = Sheet1.Cells(Origin_Row + 1, 1).Value
    Destination_Row = Destination_Row + 4
Next

Cells屬性返回指定Row和Column的Range 。 For循環的每一步都加2以從Sheet1獲取值，並將4加至Destination_Row以將值粘貼到Sheet2 。