根据字符串和计数行数进行过滤

Question

我最近开始使用VBA，我必须使用字符串＆＃39; NEWV＆＃39;来过滤列。并计算在过滤后结束的行数，目前使用下面的代码，但似乎没有用，

ByrNbr = Watchlist.Range("B" & i).Value

LookFor = ByrNbr

Set Age_rng = Total.Sheets("Counts").Range("A:S")

If Total.Sheets("Counts").Range("G:G").Value = "NEWV" Then

 .Range("L27").Value = Application.WorksheetFunction.CountIf(Age_rng, Range("A:A"))

End If

Answer 1

不确定这些范围是什么工作簿和工作表，但你可以使用这样的东西，只需澄清每个范围所在的位置。

ByrNbr = Watchlist.Range("B" & i).Value
     Worksheets(???).Range("L27").Value =WorksheetFunction.CountIfs(Watchlist.Range("B:B" ), ByrNbr, 
    Watchlist.Range("G:G"), "NEWV")

Answer 2

尝试在没有If声明的情况下测试此行

Range("L27").Value = Application.WorksheetFunction.COUNTIF(Age_rng,"NEWV")

Answer 3

Sub formulatest()

MsgBox Application.WorksheetFunction.CountIfs(Sheet1.Range("B13:B16"), Sheet1.Range("C12").Value, Sheet1.Range("G13:G16"), Sheet1.Range("D12").Value)
'~~Returns 2

End Sub