エクセルマクロについて

質問

売上記録表で、品目（A列）、販売日時（B列）、数量（C列）、－－－－と並んでいます。A列の品目は、桃・桃・桃・桃・メロン・メロン・柿・柿・柿・ーーーと 、同じ品目について１行～複数行並んで記入されています。この複数行の内、先頭行を残して、他の行を削除するマクロを教えてください。別のワークシートに作成でもよいです。よろしくお願いします。

回答No.1

kakusuke · ベストアンサー

Sub Macro001()
Dim SaveRangeValue As Variant '値の保存用
Dim rngX As Range '作業セル範囲
Dim intRow As Integer '行番号
Dim intX As Integer '空白セルの数
'作業セル範囲の設定
Set rngX = ActiveSheet.Range("A1:A65535")

'初期値
SaveRangeValue = rngX.Cells(1,1).Value

intX = 0

For intRow = 2 To 65535
If rngX.Cells(intRow,1).Value = "" Then
'空白行の場合、カウントアップ
intX = intX + 1
Else
'空白行の場合、カウント０
intX = 0
End If

If intX >= 10 Then
'空白行が10個つづいたら終了
Exit For
End If

If SaveRangeValue = rngX.Cells(intRow,1).Value Then
'前行といっしょならクリア
rngX.Cells(intRow,1).Value = ""
Else
'違うなら、新しくセット
SaveRangeValue = rngX.Cells(intRow,1).Value
End If
Next
End Sub

こんな感じでどうでしょう？

お礼

kakusukeさん、早速のご回答ありがとうございます。参考になりました。ありがとうございました。早速に組み込んで使わせていただきます。
そのとおりでした。お世話になりました。また、よろしくお願いいたします。