>>581 > みたいな感じで月が同じでコードが一致してる場合だけ積み立てていくことってできますか？ 月が同じってどこと同じなの？ コードのようにどこかで指定するってこと？ とりあえずコードがA列、金額がB列、月がC列に入っているとして Dim 元表 As Sheet: Set 元表 = Range("A1:C10") Dim 金額() As String: ReDim 金額(元表.Row To 元表.Row + 元表.Rows.Count - 1) Dim 書込行 As Long: 書込行 = LBound(金額) Dim 行 As Long For 行 = LBound(金額) To UBound(金額) If Cells(行, "A").Value = コード And Cells(行, "C").Value = 月 Then 金額(書込行) = Cells(行, "B").Value 書込行 = 書込行 + 1 End If Next ReDim Preserve 金額(LBound(金額) To 書込行 - 1) Range("D1").Formula = "=" & Join("+", 金額) みたいな感じでいけると思う
