§A列の最終行を取得する 空白セルが無い場合 ‥‥ Ctrl＋↓を使うRange("A1").End(xlDown).Row 空白セルがある場合 ‥‥ 最後の行から Ctrl＋↑ するCells(Rows.Count, 1).End(xlUp).Row §１行目の最終列を取得する 空白セルが無い場合 ‥‥ Ctrl＋→を使うRange("A1").End(xlToRight).Column 空白セルがある場合 ‥‥ 最後の列から C…