1の行の一番右のひとつ1のセルをアクティブにする

---

1の行の一番右のひとつ1のセルをアクティブにする

Sub Sample5()

'1の行の最終列「Range("1" & Columns.Count)」から
'Shiftキー+←キーの操作「End(xlToLeft)」をして
'そのセルの1つ右「Offset(, 1)」を選択「Select」します。

Range("1" & Columns.Count).End(xlToLeft).Offset(, 1).Select

End Sub

エクセルＶＢＡテクニック集トップ

---