用<em>VBA</em>统计满足条件的单元格的内容的个数，求懂编程的大神帮帮...-excel

用VBA使用公式的话：zhidao
比如A日期是今天，专在A1单元格；B日期是去年今天，在B1单元格，结果想在C1显示，那么可以CELLS(1，3)=CELLS(1，2)-CELLS(1，1)就可以了
如果是镶嵌在另一个属公式内的，可以用cells(1,3)=application.WorksheetFunction.sum(cells(1,2),-cells(1,1))

Sub 按钮1_Click()
Dim arr(1 To 10)
On Error Resume Next
For d = 1 To 10
 arr(d) = 0
Next
r = Range("B3").End(xlDown).Row
c = Range("B3").End(xlToRight).Column
f1 = [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
     arr(Cells(j - 1, i)) = arr(Cells(j - 1, i)) + 1
     arr(Cells(j + 2, i)) = arr(Cells(j + 2, i)) + 1
    End If
  Next
 Next
 [T3].Resize(10, 1) = Application.Transpose(arr)
End Sub

 

[T3] 可以zd改成   S3  ,我做专测试 用的属 T3 

function My(Rng as string,Str as string)
dim Arr as variant
arr=split(Rng,str)
my=arr
end function
公式=my(单元格zd,"分隔符号")
这是内一个数组来的，对公式使用F9可得出容来

Sub a()

    [N6] = Application.WorksheetFunction.Max([B3], [B5]) - Application.WorksheetFunction.Min([B3], [B5])

End Sub

这个你应该看得zd懂。但是我只会做一个的回，很多一起答的不会，