用vba在excel中寫一個“ IF（A2）IS NULL”

Question

我目前使用VBA在excel中編寫此公式（有效）

Cells(r, c).Formula = "IF(COUNTIF($C:$C,C" & r & ")=COUNTIFS($C:$C,C" & r & ",$" & col & ":$" & col & "," & col & r & "),""PRODUIT"",""ARTICLE""))"

現在，我想在此公式中添加一個條件：

如果單元格為空白； 然后返回“”; 否則，我的實際公式

所以我嘗試了這個：

Cells(r, c).Formula = "=IF(C" & r & " = " " ;"";IF(COUNTIF($C:$C,C" & r & ")=COUNTIFS($C:$C,C" & r & ",$" & col & ":$" & col & "," & col & r & "),""PRODUIT"",""ARTICLE""))"

我需要一些幫助，在此先感謝您，我的英語不好。

Answer 1

如果要檢查單元格是否為空白（空字符串），我更喜歡使用Chr(34)以便在公式字符串中包含"" 。

因此，您的公式應為：

Cells(r, c).Formula = "=IF(C" & r & "=" & Chr(34) & Chr(34) & " ;" & Chr(34) & Chr(34) & ";IF(COUNTIF($C:$C,C" & r & ")=COUNTIFS($C:$C,C" & r & ",$" & col & ":$" & col & "," & col & r & "),""PRODUIT"",""ARTICLE""))"