エクセルＶＢＡで範囲の指定をしたいです（初心者）

質問

エクセルＶＢＡで範囲の指定をしたいです（初心者）

列ＡからＪがデータが入る範囲です。
列ＡとＢとＣには必ず数値等が何かしら入ります。
列Ｄは常に空白です。
列Ｅ以降は何か入ることも入らないこともあります。

７行目までデータがある場合、
Ａ１セルからこの場合はＪ７セルまでを範囲指定したいのですが
行数は未定なので、
Range("A1").Select
Range(Selection,Selection.End(xlDown)).Select
でＡ列のデータ最終行まで下がり、そこから９つ右の列までを
範囲指定するというのがよくわかりません。
自動記録で絶対参照と相対参照を切り替えてやってみたのですが、
どうしても
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Range("A1:J7").Select
と常にＡ１からＪ７が指定になってしまいます。
バージョンは2003です。
つたない質問文で申し訳ありませんが、
どなたか宜しくお願いいたします。

回答No.3

Wendy02 · ベストアンサー

4つのコードを書きました。それぞれで調べてみてください。
段階的に書きました。基本的には、標準モジュールに書きます。

元のコードを直すと、
Sub Test1()
Range("A1").Select
Range(Selection, Selection.End(xlDown).Offset(, 9)).Select
End Sub

次に、少しマクロらしくすると
Sub Test2()
Range("A1", Range("A1").End(xlDown).Offset(, 9)).Select
End Sub

もう少し、マクロらしくすると、
Sub Test3()
Dim i As Long
i = Range("IV1").End(xlToLeft).Column
Range("A1", Range("A1").End(xlDown).Offset(, i - 1)).Select
End Sub

より実践的に書くと以下のようになります。

Sub Test4()
Dim i As Long, j As Long
If WorksheetFunction.CountA(Cells) = 0 Then Exit Sub
With ActiveSheet.UsedRange
'Range("A1").SpecialCells(xlCellTypeLastCell) 'これは思ったようには行かない
　j = .Cells(.Cells.Count).Column
　i = .Cells(.Cells.Count).Row
End With
Range("A1", Cells(i, j)).Select
End Sub

お礼

できました、できました！

このようなつたない質問文しか書けないような初心者でも
理解できるような易しいマクロ文から実践まで示していただき
大変参考になりました。
とても感謝しております。
まだまだこれから勉強をしていこうと思いますので
またお世話になることがあるかと思いますが、
なにとぞ宜しくお願いいたします。

本当にありがとうございました。

回答No.2

sd-guntyan

Range(Selection, Selection.End(xlDown)).Select
Columns("A:J").Select
では、だめですか？

お礼

ありがとうございます。

教えていただいた文ですと、エクセルの最終行まで範囲指定になり、
２行目以降のセルへの貼り付けができませんでした。

私がちゃんと、範囲指定後２行目以下へ貼り付けると書かなかったのが
いけませんでした。すみません。

ただ逆に最終行までを指定したい場合教えていただいた方法が
大変有効ですので使わせていただきます。

ありがとうございました。

回答No.1

MackyNo1

マクロ記録時のキー操作が間違えています。

選択したセルから最終セルまで自動的に範囲を取得するなら、Ｃｔｒl+Shift+Endのキー操作です。

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

表内のデータ範囲を自動取得するなら（Ａ１セルを選択して）Ｃｔｒｌ＋Ｓｈｉｆｔ＋＊の操作を行います。

Range("a1").CurrentRegion.Select

お礼

早々のご回答ありがとうございます。

示していただいた方法ですと、Ｃ列までしか範囲指定できないようですが、
ただ、全てのセルにデータが入っている場合には大変有効ですので
そのような場合に使わせていただこうと思います。