VBA　最終列の取得

先日は最終行の取得を解説しました。Excel上でデータを扱う時、最終列を知ることができると便利です。
最終行、最終列を取得することによって、データサイズに合わせてデータを動的配列に格納できます。データの最終列を取得するサンプルプログラムは下記となります。

i = ActiveSheet.Columns.Count
LastColumn = Cells(1, i ).End(xlToLeft).Row

手順は、シートの最終列を取得します。次に１行目のシートの最終列から、左に（1列目）に向かって列を移動し、データの最終列を取得します。例えば、Cells(2 , i )とすると２行目の最終列を取得できます。