查询指定区域数字出现的个数

准提部林

ykcbf1100 发表于 2023-5-6 08:26
45/5=9，就是9个数为一组的意思，数据区中某个数（4位）、按二二拆分成二个数，如果这二个数都在同一个组 ...

E14 的 5 可能是動態的...否則何必用單元格參照???
在無法平均 45 個數字時, 如何分區間???

ykcbf1100

准提部林 发表于 2023-5-6 09:24
E14 的 5 可能是動態的...否則何必用單元格參照???
在無法平均 45 個數字時, 如何分區間???

楼主的题意就是这样的。
[e14]道理上讲应该是动态的。你说的情况应该存在，但楼主也没说怎么处理这种情况。

准提部林

不管能否平均數字//

Sub TEST_A1()
Dim Arr, P%, i&, j%, k%, V1%, V2%
P = Int(44 / Sheet1.[e14]) + 1
Arr = Sheet1.[d3:f9]
For i = 1 To UBound(Arr)
    For j = 1 To UBound(Arr, 2)
        V1 = Left(Arr(i, j), 2)
        V2 = Mid(Arr(i, j), 3)
        Arr(i, j) = ""
        For k = 1 To 45 Step P
            If (V1 >= k) * (V1 < k + P) * (V2 >= k) * (V2 < k + P) Then Arr(i, j) = 2: Exit For
        Next k
    Next j
Next i
Sheet2.[c3].Resize(UBound(Arr), UBound(Arr, 2)) = Arr
End Sub