質問: True 'データがない行を隠す End Sub ### 試したこと ここに問題に対して試したことを記載してください。 ### 補足情報(FW/ツールのバージョンなど) ここにより詳細な情報を記載してください。
回答: `wsData`がないのだと思います。 グローバルで持ってたらこの回答は意味をなさないので、スルーしてください。 請求書作成関数内でwsDataを生成しましょう。 ワークシート名には適宜対象とするシート名に置き換えてください。 ``` Dim rowsData As Long '行数カウント用の変数 Dim wsData As Worksheet ' ←追加 Set wsData = Worksheets("ワークシート名") ' ←追加 rowsData = wsData.Cells(Rows.Count, 1).End(xlUp).Row '最後の行数を取得 ```