exceL中的vBA

答案:1 悬赏:0 手机版

解决时间 2021-03-26 06:40

提问者网友：最美的风景
2021-03-25 23:42

exceL中的vBA

最佳答案

五星知识达人网友：空山清雨
2021-03-26 00:49

公式即可：
=COUNTIF($A$1:$M$3,A5)

如图所示：

追问您能不能用vBA写出来请您帮帮忙，多谢了追答
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, j, k, n
For k = 5 To 14
n = 0
    For i = 1 To 3
        For j = 1 To 13
            If Cells(i, j) = Range("A" & k) And Cells(i, j) <> "" Then
            n = n + 1
            End If
        Next j
    Next i
Range("c" & k) = n
Next k
End Sub追问请问您一下，假如用字典和数组能做出来吗？如能，再麻烦您一次，感谢。因为有许多确定位置的区域，用数组是不是好些追答复杂的不会

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息