Ввод функции CountIfs в цикл - PullRequest
Новая
       5

Ввод функции CountIfs в цикл

0 голосов
/ 07 декабря 2018

Я пытался создать скрипт, который сначала удалит все ненужные строки, а затем вставит функцию 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

1 Ответ

0 голосов
/ 07 декабря 2018

Примерно так: 

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)

Требуется или нет кавычки вокруг вставленного значения в формуле, зависит от того, является ли значение числовым или нет.

...