Question

用VBA统计满足条件的单元格的内容的个数，求懂编程的大神帮帮忙！跪谢！

如图片说明。
要用VBA哦，不要用公式。
文件已传百度云。
http://pan.baidu.com/s/1pJBrWO7

再次感谢！

Answer 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] 可以改成   S3  ,我做测试 用的 T3 

追问

这答案简直帅，就是我要的。
然后我想问一下啊，如果我只要统计满足条件的下一行的单元格怎么改？

追答

Sub 按钮1_Click()
Dim arr(1 To 10)
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 + 2, i)) = arr(Cells(j + 2, i)) + 1
    End If
  Next
 Next
 [T3].Resize(10, 1) = Application.Transpose(arr)
End Sub

追问

好。谢谢你，，非常感谢！

Answer 2

你的图看不清楚。用文字表达你的意思。红字看不清楚。
有excel VBA qq群，你可以加入群去提问，好多这样的qq群，而且看了你的图片，感觉设计起来挺复杂。需要 十几个数组才行。
你到底想干什么呢。
如果你把这个发布到 猪八戒网站，估计10块钱就可以有人帮你万成这个任务。
关键你是得舍得花10元发布任务。

猪八戒网站是花钱雇人帮忙的网站。