ie-excel

エクセル・マクロでie操作

入力された最終行、最終列を取得する

2016/10/25

最大行を取得する

最大行を取得するためにはEndプロパティを用いて、対象列の最後に入力されている行を探すやり方が一般的なようです。
オブジェクト.Cells(Rows.Count, 対象列).End(xlUp).Row
オブジェクトにはワークシートを設定し、取得した対象列番号をセットします。
以下の例は、1列目の最終行を参照しています。

最大列を取得する

最大列を取得するためには、上記同様Endプロパティを用いて、対象行の最後に入力されている行を探すやり方が一般的なようです。
オブジェクト.CellsCells(対象行, Columns.Count).End(xlToLeft).Column
オブジェクトにはワークシートを設定し、取得した対象行番号をセットします。
以下の例は、1行目の最終列を参照しています。

ワークシートの最大行・最大列を取得する

シートの利用可能な最大行・最大列を取得するコードです

列1を列2にコピーする

「Sheet1」の最終行を求め、列1を列2にコピーするようなケースは以下のコードとなります。

上記コードが冗長的で、シート名を変更すると3箇所も変更しなければいけないので、少しだけプログラムっぽくしてみました。

-VBA