|
みなさん今晩は。 横から失礼します。
>例えば、下の例でやりますと、日付を昇順後・・・その後マクロコードを使うと
>最初の7月1日は合計で150となります7月の3日の合計も130になります。が、ここまでは良いのですが7月の5日290になります7月8日も250という数字になります。
>つまり対象日が1日の時にその日の上2行分を加算しています。
これでできます。
Sub 一つづつ比較()
Dim subad As String
Dim CEL As Range
For Each CEL In Range("a2", Range("A65535").End(xlUp))
CEL.Select
If (CEL.Value <> CEL.Offset(1).Value And CEL.Value <> "") Then
If (CEL.Value = CEL.Offset(-1).Value) Then
subad = Range(CEL, CEL.End(xlUp)).Offset(, 1).Address(0, 0)
Else
subad = CEL.Offset(, 1).Address(0, 0)
End If
CEL.Offset(1).EntireRow.Insert
CEL.Offset(1, 1).Formula = "=sum(" & subad & ")"
End If
Next
End Sub
|
|