求助一个关于excel统计处理方面的特别问题！谢谢！！

Question

各位大虾老鸟们
问一个困扰了小弟很久的关于excel统计的问题
比如：
3   4   5
A   B   C
3   A   B
C   B   A
4   6   9
若给出“3”，要找出“3”，并统计3下面的数或字母（“A”和“C”）返回是什么值，各有多少，如此循环调用直到单元格里没有值为止。请大家帮帮忙！
谢谢！非常感谢！

Answer 1

Sub my_countif()
   Dim dat()
   xx = InputBox("请输入一个条件！", "查找", "")
   If Len(xx) >= 1 Then
      i = ActiveSheet.UsedRange.Rows.count
      j = ActiveSheet.UsedRange.Columns.count
      ReDim dat(1 To i * j)
      n = 0
      For Each c In ActiveSheet.Range(Cells(i, j).Address & ":" & Cells(1, 1).Address)
         If c.Value = xx Then
            n = n + 1
            dat(n) = Cells(c.Row + 1, c.Column)
         End If
      Next
      x = 0
      For i = 1 To n
        If x = 5 Then
           s_string = s_stirng & dat(i) & Chr(10)
           x = 0
        Else
           s_string = s_string & dat(i) & "   "
           x = x + 1
        End If
      Next
      MsgBox "合计找到 " & n & " 个符合条件的记录!分别如下:" & Chr(10) & s_string
   End If
End Sub