2

Excel VBAで1行で複数のシートを参照する方法があるかどうか疑問に思っていました。次の方法で複数の範囲、列、行を参照できることを知っています。

Range("G1:G5, G6:G10, H5:H10") etc...

私はこれを試したシートで同じことができるようにしたい:

Sheets("Sheet1_Name, Sheet2_Name, Sheet3_Name").Range(...)

しかし、それはうまくいかなかったので、シート名を変数に入れて変数を参照する以外に、これを行う特別な方法があるかどうか疑問に思っていました。

4

1 に答える 1

3 
Sub Test()
    Dim sheetsArray As Sheets
    Set sheetsArray = ActiveWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3"))

    Dim target As Range
    Dim sheetObject As Worksheet

    ' change value of range 'a1' on each sheet from sheetsArray
    For Each sheetObject In sheetsArray
        Set target = sheetObject.Range("A1")
        target.Value = "Test"
    Next sheetObject
End Sub
于 2013-07-19T12:19:11.093 に答える