VBA 重複の削除について

Question

５列に記載されていますデータで、1行目に空白行があります。

 '重複しているデータを削除

With Worksheets("Sheet1")

 Worksheets("Sheet1").Range("A:E").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlNo
 
End With

こちらで重複は削除されますが、1行目に空白行があり、削除する方法が不明です。
すみませんがご教示ください。

Answer 1

単純に消せばいいのではないでしょうか。
１行目が必ず空白ならば、Headerプロパティ値は、noでもyesでもどちらでもいいかと。

    Worksheets("Sheet1").Range("A:E").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), _
                                                       Header:=xlYes
    If Worksheets("Sheet1").Range("A1").Value = "" Then Rows("1:1").Delete

Comments

[koko2]

できました。ありがとうございました。