上下左右1セルずつ選択範囲を広げたい。 1セル選択→9セル選択、4セル選択→16(18)セル選択みたいな感じのことをしたい。起点が1列目1行目の場合にOffsetでエラーが起きる。 これを無視すると簡単。 Sub 選択範囲を広げる1() On Error Resume Next Dim targetR…