Q&Aご覧くださりありがとうございます。
ExcelVBAでプログラムを組んでいるのですが、
最終列及び最終行を取得する箇所でエラーがでて困っております。
エクセルは2019です。
VBA
1 ' データシートをコピーして新規ブックを起動 2 Sheets("データ").Copy 3 ' 起動したブックを変数にセット 4 Set copyWS = Workbooks(ActiveWorkbook.Name).Sheets("データ") 5 ' 店コード行の最終列番号を取得 6 lastCol = copyWS.Cells(ROW_MISECD, Columns.Count).End(xlToLeft).Column 7 ' バーコード列の最終行番号を取得 8 LastRow = copyWS.Range(COLSTR_BARCD & Rows.Count).End(xlUp).row
エラー発生個所は
lastCol = copyWS.Cells(ROW_MISECD, Columns.Count).End(xlToLeft).Column
エラーメッセージは
「アプリケーション定義またはオブジェクト定義のエラーです。」
と表示されます。
よろしくお願い致します。
回答1件
0
自己解決
Columns.Countの前にcopyWS.を付与するとエラーが出なくなりました。
投稿2022/02/18 04:49
総合スコア13
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。