Excel BVA

質問

今晩は、いつもお世話になっています！
今回は、エクセルで500行以上の大量のデータの表があります。
そのデータを元に後程、色々な視点からグラフを作成したりするので、本来ならば、エクセルよりアクセスを使用すれば良いのかもしれませんが、エクセルで使用しています。
そこで、500行以上入力してあると、次行記入の際にスクロールさせるのも面倒で、全列記入してあれば Ctrl+End キーで最終行に移行できますが、記入しない列もあり、必ず記入する列は A1 の連番位です。
そこで、1行目辺りにボタンを作成し、そのボタンをクリックすると次行記入する頭の列に移行するようなマクロをボタンに登録したいと考えています。
ですが、本やネットで検索しても同様の目的がヒットせず、マクロはまだ自分でプログラムの作成は厳しいので、いつも本などに載っているプログラムをそっくり入力してやっている程度です。
　そこで、すいませんが上記内容のプログラムが解かる方、もしくは同じ目的のホームページなどありましたら、お手数ですが教えて頂けたら・・・
と思います。宜しくお願いします。

回答No.1

redfox63 · ベストアンサー

先頭の題目などあるなら CurrentRegionで入力されている矩形が取得出来ますのでこれを応用して

Sub Macro1()
　　dim r as Range
　　' 1行目に題目があるなら
　　set r = Range("A1").CurrentRegion
　　' ActiveCellのある列と 矩形の重なる部分を取得
　　set r = Intersect( r, ActiveCell.EntireColumn)
　　if not r is nothing then
　　　　' 重なる部分の最終行+1を選択する
　　　　r.Offset( r.Rows.count ).Resize( 1, 1).Select
　　end if
End Sub
といった具合でしょう

お礼

redfox63さん、回答ありがとうございます！
早速、やってみようと思います。
また補足する時には、すいませんが宜しくお願い致します。

回答No.2

temtecomai2

A列が必ず記入されているのであれば、A列にカーソルがある状態で
[End]、[↓] で最終行にジャンプします。
A列にカーソルを持っていくには [Home] で。
つまり、
[Home]→[End]→[↓] で。

お礼

temtecomai2さん、回答ありがとうございます！
早速、やってみようと思います。
また補足する時には、すいませんが宜しくお願い致します。