按规则判断内容并返回结果

grf1973

是的，如果字符串中有非数字就只能用字典了。

天地一相

grf1973 发表于 2024-7-25 09:48
试试吧，数据量大的话应该会快点。

改造嵌套进我的循环里，终于测试完成，你这种写法速度非常快，比昨天的快多了。

准提部林

抓對//真妙的思維//學一個
Sub test2()
Dim S&, T$, i&, j&, A%(9), v&, y&, k&, Tm
Tm = Timer
arr = Range("b1:d" & Cells(Rows.Count, "B").End(3).Row)
For i = 1 To UBound(arr)
    Erase A: y = 0
    For j = 1 To 3
        S = arr(i, j): T = S
        For k = 1 To Len(T)
            v = S Mod 10
            A(v) = 1 - A(v)
            y = y - (1 - A(v) * 2)
            S = S \ 10
        Next k
        arr(i, 1) = -(y > 0)
    Next
Next
[E1].Resize(UBound(arr)) = arr
MsgBox Timer - Tm
End Sub

一个老陈

cnmlgb9998 发表于 2024-7-24 19:33
用PQ解决 ，方便快捷。

用函数，pandas解决 ，方便快捷。

sdytsxd991122

学习一下

sdytsxd991122

...............