在一张纸上复印1x13范围内的每第三个单元格，并粘贴到另一张纸上的5x1范围内

Question

我有2个工作表Sheet1和Sheet2。 Sheet1的范围为C12：O12，而Sheet2的范围为E4：E8。我需要复制C12：O12范围内的第一个和第三个单元格并粘贴到E4：E8范围内。这是我的代码;

Sub PX() 'COPY DATA FROM ROW ONE SHEET INTO A COLUMN on another sheet
Sheets("Sheet2").Range("E4:E8").Value = Application.WorksheetFunction.Transpose(Sheets("Sheet1").Range("C12:O12").Offset(0, 3).Value)
End Sub

然而，它似乎只是转置范围（“C12：O12”）并粘贴范围（“C12：G12”）。你能帮忙吗？

Answer 1

3try：

Sub main()
Dim i As Integer
For i = 1 To 5
    Sheet2.Cells(i + 3, 5) = Sheet1.Cells(12, (i - 1) * 3 + 3)
Next i
End Sub