代码之家 › 专栏 › 技术社区 › Chris

如何将一系列数据从一个工作表转置到另一个工作表

vba excel

-1

Chris · 技术社区 · 6 年前

我相信我能正确处理第二个工作表中所需的范围,但我不理解粘贴在哪里/如何工作。我正在尝试粘贴到其他工作表。

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

1 回复 | 直到 6 年前

1

2

user11026105 6 年前

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")