vba统计符合条件的数量 vba统计单元格个数

用countif函数 比较好

简单看了下 应该是 a = Sheets(1).Cells(i - k, j+k ) - Sheets(1).Cells(i + k, j-k ) J+K 和 i+K 会超过 你的那个表格的范围了

Sub 按钮1_Click()Dim arr(1 To 10)On Error Resume NextFor d = 1 To 10 arr(d) = 0. = [p1]f2 = [p2] For i = 2 To c For j = 3 To r - 1 If Cells(j, i) = f1 And Cells(j + 1, i) = f2 Then .

我的回答 被百度 坑了=countif(offset($a$1,match(＂座＂,a:a)-4,,),＂*提取*＂) *countif(offset($a$1,match(＂座＂,a:a)-3,,),＂*【*＂&b7&＂*】*＂)-countif(offset($a$1,match(＂座＂,a:a)-4,,),＂*提取*＂) *countif(offset($a$1,match(＂座＂,a:a)-3,,),＂*】*＂&b7&＂*【*＂)

public sub ssss()dim arr1(1 to 5) as integer, arr2(1 to 5) as integer, ifor i = 1 to 5 arr1(i) = i arr2(i) = i + 2next'----下面开始----dim s1$, s2$, t$s1 = ＂ ＂s2 = ＂ ＂for i = lbound(.

sub aa() [a65536].end(3).offset(1, 0).formulaarray = ＂=sum(1/countif(r1c:r[-1]c,r1c:r[-1]c))＂ end sub

adodc控件名datPrimaryRSdatPrimaryRS.Recordset.RecordCount

建一个CommandButton,把以下代码复制进去即可 Private Sub CommandButton1_. InStr(Pos1, Temp, j) LenTemp = Mid(Temp, Pos1, Pos2 - Pos1) n = 0 '符合以上IF条件.

可选用以下统计方法:1、用sumproduct函数:如,统计六年级90分以上的人数(其中a列为年级,b列为成绩),公式:=sumproduct((a1:a100=＂六年级＂)*(b1:b100>=90).

A列最底端有数据的单元格\r\n[a65536].end(xlup).row\r\n\r\n如果是统计每列有多少非空单元格\r\n就要调用COUNTA函数方便些\r\nWorksheetFunction.CountA (Range(＂A:A＂))