Excel VBA 質問スレ Part77

[167 デフォルトの名無しさん (ﾜｯﾁｮｲ 7a01-Jv5Y) 2022/07/31(日) 05:59:25.08 ID:UwyiR8NW0]

>>166
普通に
Dim F(0 To 20) As Long
Dim I As Long
For I = LBound(A) To UBound(A)
F(A(I)) = F(A(I)) + 1
Next
ってやればいいだけじゃねーの？