excel - 如何将数据复制到连续的每个其他单元格中？

Question

我从 B18:B23 复制单元格 ( Sheet1 )至Sheet2转置时。
我想粘贴到所有其他列( O4 、 Q4 、 S4 等，在其间跳过一个单元格)。

Sub CopyData()
    Dim wsSrc As Worksheet
    Dim wsDst As Worksheet
    
    Set wsSrc = Worksheets("Sheet1")
    Set wsDst = Worksheets("Sheet2")
        
    wsSrc.Range("B18:B23").Copy
    wsDst.Offset(1, 1).Range("O4").PasteSpecial xlPasteValues, Transpose:=True
       
    Application.CutCopyMode = False
End Sub

我已经把它转置了。粘贴时如何跳过所有其他列？

Answer 1

没有使用标准复制/粘贴方法的“跳过/转置”，所以我认为最好的选择是遍历你的值并使用偏移量。这个应该做...

Sub CopyData()
    Dim wsSrc As Worksheet, wsDst As Worksheet, aCell As Range, tOff As Long
    
    Set wsSrc = Worksheets("Sheet1")
    Set wsDst = Worksheets("Sheet2")
    
        For Each aCell In wsSrc.Range("B18:B23").Cells
            wsDst.Range("o4").Offset(0, tOff).Value = aCell.Value
            tOff = tOff + 2

        Next aCell

End Sub