大数据在数组中排除，已有代码求加速

838833928

现已模拟1万条，实际循环处理（10万×4次）

838833928

怎么在数组里面多条件循环删除？求大师解答

tanglf188

838833928 发表于 2023-2-9 10:56
怎么在数组里面多条件循环删除？求大师解答

不满足的不读入啊

838833928

tanglf188 发表于 2023-2-9 11:08
不满足的不读入啊

比如，第一次删除千位上的2，3以后，在删除十位上的4，8，怎么循环呢？

tanglf188

838833928 发表于 2023-2-9 11:12
比如，第一次删除千位上的2，3以后，在删除十位上的4，8，怎么循环呢？

先筛选再把可见部分装入数组

838833928

tanglf188 发表于 2023-2-9 11:17
先筛选再把可见部分装入数组

是把数组分组排列出来，在删除？是这样吗

838833928

是这样？
Dim arr()
Dim m1, m2, m3, m4, i%
ReDim arr(1 To 10000, 1 To 1)
For x = 0 To 9999
arr(x + 1, 1) = Format(x, "0000")
Next
For i = 1 To UBound(arr)
m1 = Mid$(arr(i, 1), 1, 1)
m2 = Mid$(arr(i, 1), 2, 1)
m3 = Mid$(arr(i, 1), 3, 1)
m4 = Mid$(arr(i, 1), 4, 1)
Next

jz_l

fzxba

838833928

jz_l 发表于 2023-2-9 11:48

Sub 排除()
    Dim sArr() As String
    Dim sFilter As String
    Dim r As Long, nLb As Long, nUb As Long, n As Long
    Dim t As Single

    nLb = 1: nUb = 10000

    t = Timer
    ReDim sArr(nLb To nUb, 1 To 1)
    For r = nLb To nUb
        sArr(r, 1) = Format$(r - 1, "0000")
    Next
    sFilter = Range("D1").Value

    n = nLb - 1
-------------------------------------------------------------------------------------------------------
    For r = nLb To nUb
        If InStr(sFilter, Left$(sArr(r, 1), 1)) = 0 Then '排除以指定字符开头的项
            n = n + 1
            sArr(n, 1) = sArr(r, 1)
        End If
    Next
老师：我想在这一段添加条件？怎么添加
-----------------------------------------------------------------------------------------------------
    If n >= nLb Then Range("C1").Resize(n - nLb + 1).Value = sArr '结果
    Range("E2").Value = n '数量
    t = Timer - t
    Range("F2").Value = t '耗时
End Sub