|
▼momokan さん 今日は
>【26949】ではとても参考になりましたが、もし、
>集計行が1行しかない場合には集計行を挿入しない時はどうするのでしょうか?
>いろいろやってみましたが解りませんので教えて下さい。
これでできます。
Sub 一つづつ比較()
Dim subad As String
Dim r As Range, TopR As Range
Set TopR = Range("a2")
For Each r In Range("a2", Range("A65535").End(xlUp))
If r.Value <> r.Offset(1).Value And r.Value <> "" Then
subad = Range(r, TopR).Offset(, 1).Address(0, 0)
If r.Value = r.Offset(-1).Value Then
r.Offset(1).EntireRow.Insert
r.Offset(1, 1).Formula = "=sum(" & subad & ")"
Set TopR = r.Offset(2) '次の日付のトップ
Else
Set TopR = r.Offset(1) '次の日付のトップ
End If
End If
Next
End Sub
|
|