質問: 7 to .cells(rows.count, 1).end(xlup).row call module_g.inputcalc(i, "支出") next end with end sub
回答: 既に回答は出てますが、a列の最終行の取得方法から見て『粗利益』の各項目については計算されるようになっていると言う事でしょうか? sub dateupdate_2() dim i as integer dim komoku as string with sheets("home") for i = 7 to .cells(rows.count, "a").end(xlup).row if .cells(i, "a").value <> "" then komoku = .cells(i, "a").value call module_g.inputcalc(i, komoku) end if next end with end sub それともその辺も検討中なのですか? sub dateupdate_3() dim i as integer dim komoku as string with sheets("home") for i = 7 to .cells(rows.count, "b").end(xlup).row if .cells(i, "a").value <> "" then komoku = .cells(i, "a").value call module_g.inputcalc(i, komoku) next end with end sub こちらはb列で7~最終行を求めループさせてます。 b列の空白セルについては『module_g.inputcalc』がどうなっているのかで違うかもですが。