| |
▼多摩川 さん：
こんばんは。
これは、Unionメソッドを使ってください。
>
>最終的にアドレスで記入すると、Range("C2:F2,C4:F45").Select としたいと思っています。
>
>C2:F2 のアドレスは Range("C2", Range("C2").Offset(0, 3)).Address で取得でき、
>C4:F45 のアドレスは Range("C4").Resize(Cells(Rows.Count, 3).End(xlUp).Row - 3, 6).Address で取得できるシート構成となっています。
>
> x = Range("C2", Range("C2").Offset(0, 3)).Address
> y = Range("C4").Resize(Cells(Rows.Count, 3).End(xlUp).Row - 3, 6).Address
> Range(x, y).select
>
>とした場合、Range("C2:F2","C4:F45").Select と同じ範囲を選択してしまします。
>どのように書いたらよいのでしょうか？
Sub test()
Dim x As Range, y As Range
Set x = Range("C2", Range("C2").Offset(0, 3))
Set y = Range("C4").Resize(Cells(Rows.Count, 3).End(xlUp).Row - 3, 6)
application.Union(x, y).Select
End Sub
>
>よろしくお願いします。
|
|
ichinose
- 07/12/12(水) 18:22 -
