相対セルの指定方法です。今あるセルから、相対的にどれだけ動くのかという記載方法です。
今、セルがあるセルのすぐ一つ下のセルを選択する方法
Sub ひとつ下のセルを選択する()
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub今、セルがあるセルの右側のセルを選択する方法
Sub 右に一つセルを移動()
ActiveCell.Offset(0, 1).Range("A1").Select
End Subあとは、応用で、2つ下のセル、左のセルを選択する方法を考えて使ってください。
今選択しているセルの行数のA列を選択する。
Sub エイ列を選択()
'今あるセルの行から、A列のセルを選択
'なお、列文字が2文字となると、使えません。
入力セル番地 = ActiveCell.Address(ColumnAbsolute:=False, RowAbsolute:=False)
行数 = Mid(入力セル番地, 2, 4)
エイ列アドレス = "A" & 行数
Range(エイ列アドレス).Activate
End Sub検索後にそのデータのSQLがA列にあることが多いので、上記に紹介してみました。
このマクロは、条件があって、列文字が1文字であることと、行数が9999行までしか対応しておりません。


コメント