忽略X列中0的空白或值

Question

当前，如果第X列中的单元格中有空白/0，则触发返回YYY。当它在X列中找到空白单元格或值0时，我需要这段代码忽略一些情况

Sub Macro()
   
Columns("G:G").NumberFormat = "General"
    
  Dim lr As Long  

  lr = Range("A" & Rows.Count).End(xlUp).Row

  With Range("K8:K" & lr)

    .Formula = Replace("=IF(SUMPRODUCT(--(TEXT(A$8:A$#,""mmyy"")=TEXT(A8,""mmyy"")),--(S$8:S$#=S8),--(X$8:X$#=X8))" _

        & "=SUMPRODUCT(--(TEXT(A$8:A$#,""mmyy"")=TEXT(A8,""mmyy"")),--(S$8:S$#=S8)),"""",""YYY"")", "#", lr)

    .Value = .Value

  End With

End Sub

Answer 1

这只是伪代码(显然不是经过测试)，但我相信您需要的是：

for each c in Range("K8:K" & lr).Cells
  if (c.Value <> "") and (c.Value <> 0) then
    c.Formula = ...
  end if
next