質問: 下記のVBAコードに”空白セル”を無視するようにコードを追加したいのですが、わかる方教えてください。 宜しくお願いします。
回答: わざわざ R1C1参照形式なんて使うからどうしていいのか分からなく なっているのでは? 「空白」というか B列の「""」を無視したいのなら数式を With ActiveSheet With .Range("C2:C11") .Formula = "=IF(B2="""","""",IF(COUNTIF(B$1:B1,B2)>0,""重複"",""""))" .Value = .Value End With .Range("D2") = [=COUNTIF(C2:C11,"重複")] End With とすればいいかと思います。