質問: 7 To .Cells(Rows.Count, 1).End(xlUp).Row End With End Sub ``` ![画像の説明をここに入力](https://i.stack.imgur.com/AbGgp.png)
回答: 「支出」と「粗利益」以外も、「純利益」とかの項目が増える予定があるのですか? もしいらないとすると、iのループは2回でよいということになりますよね。 もしいるとすると、iのループ値を求めるために A列7行目移行を最終行までたどっていって、タイトル文字がある数をカウントして、iのループのカウント数を求めます。 そのループの内部で、B列7行目から下に文字の有無を探して、なくなるまでの個数をもとめて jのループ数を求めます。 そんなふうにしていくとよいと思いますよ。