|
日付はどうやって入力しているんですか?
年号から入ってますか?
フィルタオプションとオートフィルタを使えば範囲は特定できそうですけど。
【102】日付と期間をオートフィルタで抽出(修正版)
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=102;id=FAQ
ループでA列のセルを1セルづつ比較して範囲を特定しても良いですし、
どちらも方法でもソートしてあるから、小難しい事は省けそうですが...。
↓A列がソートしてあるとして
Sub 一つづつ比較()
Dim CEL As Range
For Each CEL In Range("a1", Range("A65535").End(xlUp))
CEL.Select
If CEL.Value <> CEL.Offset(1).Value And _
CEL.Value <> "" Then
CEL.Offset(1).EntireRow.Insert
subad = Range(CEL, CEL.End(xlUp)).Offset(, 1).Address(0, 0)
CEL.Offset(1, 1).Formula = "=sum(" & subad & ")"
End If
Next
End Sub
|
|