相対セルの指定方法です。今あるセルから、相対的にどれだけ動くのかという記載方法です。
今、セルがあるセルのすぐ一つ下のセルを選択する方法
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行までしか対応しておりません。
コメント