入力範囲を調べる
2020年7月11日
任意のセル～編集済み範囲を選択する
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
Sub Test() ' 'セルの終端を調べる ' 'Range.Endプロパティ '特定の行(列)を上(左)から空白までのセルを調べる。 Range("E3").End(xlDown).Select MsgBox Selection.Address & " E列上からデータ終わりのセル" Range("B10").End(xlToRight).Select MsgBox Selection.Address & " 10行左からデータ終わりのセル" 'Range.Endプロパティ '特定の行(列)を下(右)からデータのあるセルを調べる。 Cells(Rows.Count, 5).End(xlUp).Select MsgBox Selection.Address & " E列下からデータのあるセル" Cells(10, Columns.Count).End(xlToLeft).Select MsgBox Selection.Address & " 10行の右からデータのあるセル" 'ActiveSheet.UsedRangeプロパティ 'シートの編集済み範囲を調べる ActiveSheet.UsedRange.Select '入力済(編集済み)のセル範囲を選択 MsgBox Selection.Address & " 入力済セル範囲" MsgBox Selection(1).Address MsgBox Selection(1).Row MsgBox Selection(1).Column MsgBox Selection(Selection.Count).Address MsgBox Selection(Selection.Count).Row MsgBox Selection(Selection.Count).Column <span class="crayon-v">'ActiveSheet</span><span class="crayon-sy">.</span><span class="crayon-v">Cells</span><span class="crayon-sy">.</span><span class="crayon-e">SpecialCells</span><span class="crayon-sy">(</span><span class="crayon-v">xlCellTypeLastCell</span><span class="crayon-sy">)メソッド</span> '特定のセルから編集済み最終セルを選択する Range("D7", <span class="crayon-v">ActiveSheet</span><span class="crayon-sy">.</span><span class="crayon-v">Cells</span><span class="crayon-sy">.</span><span class="crayon-e">SpecialCells</span><span class="crayon-sy">(</span><span class="crayon-v">xlCellTypeLastCell</span><span class="crayon-sy">)</span>).Select End Sub |