Question

我一直在尝试创建一个脚本，该脚本将首先删除所有不必要的行，然后直接在右侧插入一个COUNTIFS函数。我已经对所有内容进行了错误测试，并且我知道问题出在实际上的COUNTIFS公式中，特别是当我尝试引用当前行时。 "" = "" & .Cells(lrow, 1).Value

任何帮助将不胜感激。

    Private Sub CommandButton1_Click()
        With ActiveSheet.Range("B6:B1217")
         For lrow = .Rows.Count To 1 Step -1
             If .Cells(lrow, 1).Value = "0" Then
                .Rows(lrow).Delete
             Else
                 .Cells(lrow, 2).Value = Evaluate("CountIfs(Sheets("Jan").Range("A:A"), "" = "" & .Cells(lrow, 1).Value, Sheets("Jan").Range("F:F"), ">" & "0")")
            End If
         Next lrow
        End With

Answer 1

类似这样的东西：

Dim f
'one of these two...
f = "=COUNTIFS(A:A," & .Cells(lrow, 1).Value & ", F:F, "">0"")"
f = "=COUNTIFS(A:A,""" & .Cells(lrow, 1).Value & """, F:F, "">0"")"  

.Cells(lrow, 2).Value = Sheets("Jan").Evaluate(f)

是否需要在公式中插入值的引号取决于该值是否为数字。

将CountIfs函数输入到循环中

1 个答案: