エクセルマクロVBA 条件付き書式：重複したデータに色塗り、ただし、空欄は除外したい

Question

マクロ初心者です。

ある行の重複したデータに色を塗りたいのですが、
そのうち、空欄（もしくは特定の値）を除外する方法はありますか？

重複に色塗りは下記のコードで対応ができましたが、空欄も重複とされてしまい
望む結果が出せず、困っています。

ご教示ください。

with ws3
'条件付き書式を利用して、値が重複しているセルの背景色を変更
.Range("H:H").FormatConditions.AddUniqueValues
'対象を「重複する値」にする
.Range("H:H").FormatConditions(1).DupeUnique = xlDuplicate
'背景色を薄いピンクにする
Range("H:H").FormatConditions(1).Interior.Color = XlRgbColor.rgbLightPink
end with

Answer 1

Formula1で「空白(特定の値)でない場合」という条件を追加するのは如何でしょうか。
参考リンク：条件付き書式（FormatCondition）｜VBA入門

自力でも頑張ってほしいけど簡単に書くならこんな感じ？(空欄を除く部分のみ)

Sub bgcolor()
    With Worksheets("Sheet1").Range("H:H")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="="""""
        .FormatConditions(1).Interior.Color = rgbLightPink
    End With
End Sub

3行目の条件は以下の通り。
Type:xlCellValue：セルの値が、
Fomula1:="="""""：""(空白)"と、
Operator:xlNotEqual：一致しない時に。

詳細は参考リンクを読んで学習してくださいね。