Question

我对<密码>Pstespecial

I want to take Worksheets("Sheet1").Range("A1","A5") and paste transpose to Worksheets("Sheet2").Range("A1","E1").

实现这一目标的最简单方式是什么?

Answer 1

Worksheets("Sheet1").Range("A1:A5").Copy
Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True

Answer 2

这里有一个有效的选择,不使用纸板。

Sub transposeAndPasteRow(rowToCopy As Range, pasteTarget As Range)
    pasteTarget.Resize(rowToCopy.Columns.Count) = Application.WorksheetFunction.Transpose(rowToCopy.Value)
End Sub

如此。

Sub test()
    Call transposeAndPasteRow(Worksheets("Sheet1").Range("A1:A5"), Worksheets("Sheet2").Range("A1"))
End Sub

Answer 3

<<>WorksheetFunction Transpose>

不是复制,而是通过巴斯雷特,使用<代码>Transpose,你可以简单地确定一种公式。

    =TRANSPOSE(Sheet1!A1:A5)

或者,如果你更喜欢VBA:

    Dim v
    v = WorksheetFunction.Transpose(Sheet1.Range("A1:A5"))
    Sheet2.Range("A1").Resize(1, UBound(v)) = v

<>说明>:备选案文:您可使用限时的<代码>。 Transpose 相反,。

MS help reference指出,有目前版本的Microsoft 365,人们可以简单地将公式输入目标范围顶点,否则该公式必须作为遗产阵列公式通过Ctrl+Shift+Enter加以确认。

Versions Excel vers. 2007+, Mac since 2011, Excel for Microsoft 365

友情链接