|
▼紗織 さん:
こんにちは
複数の範囲の指定方法はいろいろありますが、代表的なものを2つ。
(Sample3はSample2の解説といった程度)
いずれも同じセル領域を取得しています。
こうして取得したrから
For Each c In r として、セルを取り出すことができますし、
シートごとに別の領域をrに与えることもできますね。
(答えになっていますでしょうか?)
Sub Sample1()
Dim r As Range
Set r = Range("A1:B3,A10:C12,D5:D8")
MsgBox r.Address
End Sub
Sub Sample2()
Dim r As Range
Set r = Union(Range("A1:B3"), Range("A10:C12"), Range("D5:D8"))
MsgBox r.Address
End Sub
Sub Sample3()
Dim r As Range
Set r = Range("A1:B3")
Set r = Union(r, Range("A10:C12"))
Set r = Union(r, Range("D5:D8"))
MsgBox r.Address
End Sub
|
|