0

複数のワークシートから別のワークシートにセル範囲をコピーする方法はありますか? 例えば：

Sheet1
りんご
ぶどう
桃
さくらんぼ

Sheet2
オレンジ
梨
バナナ
ブルーベリー

Sheet3
シェカール・
マヘシュ・
ラオ
・ゴータム

結果が必要です

Sheet4
チェリー
ブルーベリー
ゴータム

シート 1、2、3 の列 A、B、C にデータがあり、シート 4 の列 A、B、C に結合された結果を表示する必要があるとします。基本的に、Sheet4 の Sheet1,2 & 3 の最後の行項目を 3 列で表示する必要があります。

4

1 に答える 1

1

このコードを試してください：

Sub Consolidate()
    Dim rngTarget As Range

    Set rngTarget = Sheets("YourTargetSheet").Range("A1:C1")

    For i = 1 To 36
        rngTarget.Value = Sheets("Sheet" & i).Range("A146:C146").Value
        Set rngTarget = rngTarget.Offset(1)
    Next

End Sub

または、この式を A1 で使用して 3 列 36 行にコピーすると、次の結果も得られます。

=INDIRECT(ADDRESS(ROW(),COLUMN(),,,"シート"&ROW()))
于 2013-02-26T12:18:12.873 に答える