| |
日付はどうやって入力しているんですか？
年号から入ってますか？
フィルタオプションとオートフィルタを使えば範囲は特定できそうですけど。
【102】日付と期間をオートフィルタで抽出（修正版）
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=102;id=FAQ
ループでＡ列のセルを１セルづつ比較して範囲を特定しても良いですし、
どちらも方法でもソートしてあるから、小難しい事は省けそうですが...。
↓Ａ列がソートしてあるとして
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
|
|
Jaka
- 05/7/25(月) 17:03 -
