特定のセルを選択した状態で実行すると、指定した列幅まで選択範囲を拡張する。事務処理で頻繁に目視チェック→塗りつぶしの作業があったため。
1 2 3 4 5 |
Sub test() ActiveSheet.Range("A" & Split(Selection(1).Address, "$")(2) & ":AA" & Split(Selection(Selection.Count).Address, "$")(2)).Select End Sub |
開発>マクロ>オプション>test>Ctrl+E
(重複しないショートカットを設定)