[[20180518170431]]　『VBA：データによって範囲を変更』（こば）　ページの最後に飛ぶ

『VBA：データによって範囲を変更』（こば）

よろしくお願いします。

下記のようなデータがあります。

  | A | B | C | D | E | F | G | H | I |
1 |              項目行               |
2 | a   b   c   d   e   f   g   h   i |
3 | j   k   l   m   n   o   p   q   r |
4

このようなデータがあり、C列からH列　の範囲を指定したいのですが、
何行まであるかはその時によって違います。

上記のように3行目までしかない時もあれば5行目まである時もあるという感じです。
ただ、選択したい列はC：Hで固定です。

C2からH列の最終行までの範囲（上記であるとC2:H3）を選択したいのですが、どうしたらよいでしょうか。
初期位置は　Range("C2").Select
として問題ないです。

わかりにくい点があるかもしれませんがよろしくお願いします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

セル範囲に入っているのが数式ではなく、全てデータならば、以下とか。

 Sub test()
    Dim cw As String
    Dim iw As Long

    cw = Range("C:H").SpecialCells(xlCellTypeConstants).Address
    iw = Mid(cw, InStrRev(cw, "$") + 1)
    MsgBox Range("C2:H" & iw).Address(0, 0), vbInformation
 End Sub
（???） 2018/05/18(金) 17:51

＞下記のようなデータ

というのが、あいまいですが
単純な表形式ならば、

  Sub test()
    Dim r As Range

    Set r = Range("A1").CurrentRegion
    Set r = Intersect(r, r.Offset(1)).Columns("C:H")
    MsgBox r.Address(0, 0)

  End Sub

（マナ） 2018/05/18(金) 20:17

コメント返信：

[ 一覧(最新更新順) ]

[[20180518170431]] 『VBA：データによって範囲を変更』（こば） ページの最後に飛ぶ

[[20180518170431]]　『VBA：データによって範囲を変更』（こば）　ページの最後に飛ぶ