请教：如何在VBA中写一句 countif 函数的运用

dacayao88 · 发表于 2023-5-12 09:07

现学习用VBA 统计本工作表 H 列最后一行至往上50行这个区间 > 0.02 的次数，将结果写在 I3单元格。我试着写了一下，没显示结果，不知道错在哪，还请大师修正，谢谢。

         myrow = Range("A65536").End(xlUp).Row
         myrowup = Range("A65536").End(xlUp).Row - 50

         Range("I3") = Application.WorksheetFunction.CountIf(Range(myrowup & H & myrow), ">" & 0.02)

3190496160 · 发表于 2023-5-12 11:08

Sub test()
myrow = Range("h65536").End(xlUp).Row
myrowup = Range("h65536").End(xlUp).Row - 50
Range("I3") = Application.WorksheetFunction.CountIf(Range("h" & myrowup & ": H" & myrow), ">" & 0.02)

End Sub

3190496160 · 发表于 2023-5-12 11:08

tel3033 · 发表于 2023-5-12 11:26

Sub byDD()
Dim i%, n%, dwNum%, arr
arr = Range("h1:h" & Cells(Rows.Count, "h").End(xlUp).Row)
For i = UBound(arr) To 1 Step -1
dwNum = dwNum + 1
If arr(i, 1) > 0.02 Then n = n + 1
If dwNum > 50 Then Exit For
Next
[i3] = n
MsgBox "OK!"
End Sub

复制代码

z865593849 · 发表于 2023-5-12 14:24

">0.02" 直接这样写

dacayao88 · 发表于 2023-5-13 07:34

好，谢谢各位大侠

wengjl · 发表于 2023-5-13 08:16

用VBA，4楼正解

dacayao88 · 发表于 2023-7-15 23:11

多谢各位大侠

		自动登录	找回密码
密码			免费注册

[求助] 请教：如何在VBA中写一句 countif 函数的运用