ikboy

Or.......

1. Sub zz()
   
2. Dim a, b, ar
   
3. ar = [b1:d4]
   
4. For i = 1 To UBound(ar)
   
5.     For j = 1 To UBound(ar, 2)
   
6.         If ar(i, j) = "a" Then a = a + 1
   
7.         If Len(ar(i, j)) Then b = b + 1
   
8.     Next
   
9. Next
   
10. [a1].NumberFormatLocal = "@"
    
11. [a1].Value = a & "/" & b
    
12. End Sub

½Æ»s¥N½X