如何將一系列數據從一張紙轉換到另一張紙

Question

我相信我從第二個工作表中正確地解決了我需要的范圍，但是我不知道粘貼的位置/工作方式。 我正在嘗試粘貼到另一個工作表。

Sub Click()
    Dim rng As Range
    Dim dat As Variant

    With Worksheets(2) 
        Set rng = .[d31:o31] 
        dat = rng 
        rng.Clear 


        .Range(rng.Cells(1, 1), Cells(rng.Row, rng.Rows.Count)) = Application.Transpose(dat)
    End With

End Sub

Answer 1

使用數組的上邊界確定目標的大小。

明確的父級工作表引用將有助於確定適當的范圍引用。

Sub Click()

    Dim dat As Variant

    With Worksheets(2) 

        with .range(.cells(31, "D"), .cells(31, "O"))
            dat = .value
            .Clear
            .Cells(1, 1).resize(ubound(dat, 2), ubound(dat, 1)) = _
                Application.Transpose(dat)
        end with

    End With

End Sub

在.range(.cells(31, "D"), .cells(31, "O")) ， .Cells(1, 1)是工作表上的.cells(31, "D") 。