VBAを使用し、数式を無視した最終列を取得してコピーしたい

①最終列を取得
②最終列の指定範囲をコピー
③別のワークブックの最終列を取得
④取得した列の3行目から貼り付け

最終列を取得する際には数式が入っている空白を
無視したいのですが、上手くいきません。

詳しい方、ご教授下さい。

lastColumn = wb.Sheets(1).Cells(3, Columns.Count).End(xlToleft).Column
wb.Sheets(1).Range(Cells(3, lastColumn), Cells (12, lastColumn)).Copy

No.1 回答者： Qchan1962 回答日時： 2020/05/16 07:07

①　が解ればすべてできるのかな？

一例です。
　For lastColumn = wb.Sheets(1).Cells(3, Columns.Count).End(xlToLeft).Column To 1 Step -1
　　If wb.Sheets(1).Cells(3, lastColumn) <> "" Then Exit For: lastColumn = lastColumn
　Next
Debug.Print lastColumn