質問: https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q102145727...
回答: 回答者の説明にもあるように '前提として 当日に該当する入金日は一行しか存在しない(見つかったら転記をして日付の検索を終わっています) ~~~~~~~~~~~~Exit~For でループ抜けているから1行分しか取れていない なので Sub~KIJITSU() の方は Dim 入金金額 As Long Dim 決済金額 As Long ↑ 最初に追加 ~~~~~~~~~~~~Worksheets("期日北海道").Cells(4,~6)~=~Cells(X1,~7) ~~~~~~~~~~~~Worksheets("期日北海道").Cells(4,~7)~=~Cells(X1,~6) ~~~~~~~~~~~~Exit~For ↑ この部分を 入金金額 = 入金金額 + Cells(X1,~7) 決済金額 = 決済金額 + Cells(X1,~6) に変更して ループ終了後に Worksheets("期日北海道").Cells(4, 6) = 入金金額 Worksheets("期日北海道").Cells(4, 7) = 決済金額 で書き込むようにすればいいと思われる