某列转成行，粘贴

[ltolll]

源数据：sheet1[A1:A5]，复制到：sheet2[B1:F1]
要求行列都用数值标示（因为行列数可能会存在变量中）。
自己试了一下，无头绪：
sheet1.Range(sheet1.Cells(1, 1), sheet1.Cells(5, 1)).Copy sheet2.Range(sheet2.Cells(1, 2), sheetRaw.Cells(1, 6))
注，尽量别用循环。

[worldy]

不要使用copy，使用一个一个单元格赋值，你想赋值到哪都可以，你问题就解决了

[ltolll]

是不是也要用到循环？

[dsd999]

PasteSpecial中就有行列转置。

Sub Ps()
    Range("A1:A5").Select
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

[ltolll]

引用 3 楼 dsd999 的回复:

PasteSpecial中就有行列转置。

Sub Ps()
    Range("A1:A5").Select
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

版主果然非同凡响。 我是直接Copy,PasteSpecial没有Select，结果一样的。 3Q