前提・実現したいこと
エクセルでVBAを利用し始めてます。
以下のコードですが、エラーが発生し、何が悪いのかわかりません。
もしわかる方がいらっしゃいましたら、ご教示いただけると幸いです。
発生している問題・エラーメッセージ
実行時エラー1004 アプリケーション定義またはオブジェクト定義のエラーです。
該当のソースコード
Sub printdata2() Dim n As Long Dim i As Long Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("itemList") 'セルの名前から列番号を取得する n = ws.Range("Product-name").Column 'セルの名前から開始する行番号を取得する i = ws.Range("Product-name").row + 1 Do While ws.Cells(i, n).Value <> "" Debug.Print ws.Cells(i, n).Value, ws.Cells(i, ws.Range("Item#").Column).Value i = i + 1 Loop End Sub
試したこと
ここに問題に対して試したことを記載してください。
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
回答3件
あなたの回答
tips
プレビュー