excelvbaでセルの範囲について
Sub Macro2()
Sheets("売上まとめ").Select
'選べる範囲を指定
Set myRng9 = Range("B2:B15")
'選択した範囲を myRng1に割り当てる
Set myRng1 = Application.InputBox("全部は選択しないで下さい", "必要売上を「B2:B15」から選択", Selection.Address, Type:=8)
myRng1.Resize(1, 2).Offset(0, -1).Select
皆様どうかよろしくお願いいたします。
まずB2セルからB15セルの間に数字が入力されています。
上から下に向けて続けて数字が入力されていますが
下の方は空白の場合があります。
（例 B2からB10は入力あり。B11からB15は空白）
まず、インプットボックスで数字が入力されている範囲を
B2セルから下方向に操作者に選択させます。
（例えばB2からB7まで。）
この範囲をmyRng1としています。
目標として選んだ範囲を1列左に拡張させて
選択させたいのですが、
（例 B2だけ を選択していたらA2からB2まで
B2からB8まで を選択していたらA2からB8まで）
その部分を現在 こう記述しております。
myRng1.Resize(1, 2).Offset(0, -1).Select
単一セルだけを選択している場合は
キチンと左方向に拡張させて選択できるのですが
（例 B2だけ を選択していたらA2からB2まで）
複数範囲を選択している場合でも同じ結果になってしまいます。
例 B2からB8まで を選択していてもA2からB2まで）
どうかよろしくご指導お願いいたします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
お礼
RefEditコントロールが理想的です！ ありがとうございました！