判断个数是否有误

36K纯帅

各位老师，工作中要核对数据正确性，有什么办法可以快速核对呢？
A、B两列数据，需要核对指示符个数和用量是否一致

大灰狼1976

取巧的方法，适用范围窄。

1. Sub test()
   
2. s = "R4,R5-R7"
   
3. s = Replace(s, "-", ":")
   
4. If Not s Like "*,*" Then If Not s Like "*:*" Then s = s & ":" & s
   
5. Debug.Print Range(s).Count
   
6. End Sub

复制代码

rysxing

乱码。。。。。。

limonet

好吧，我电脑的问题。

ykcbf1100

limonet 发表于 2024-9-2 13:00
好吧，我电脑的问题。

你今天又做了一次雷锋。

limonet

ykcbf1100 发表于 2024-9-2 13:22
你今天又做了一次雷锋。

雷锋永远在我心中。

醉眼看尘世

1. Sub test()
   
2. Dim reGxp As Object, Arr, i&, j&, tmPobj As Object, m As Object, x, a, b
   
3. Set reGxp = CreateObject("vbScript.regExp")
   
4. reGxp.Global = True
   
5. reGxp.Pattern = "(\d+)(\-\D+(\d+))?"
   
6. i = Cells(Rows.Count, "A").End(3).Row
   
7. Arr = [a1].Resize(i, 4)
   
8. With reGxp
   
9.     For i = 2 To UBound(Arr, 1)
   
10.         If .test(Arr(i, 2)) Then
    
11.             x = 0
    
12.             Set tmPobj = .Execute(Arr(i, 2))
    
13.             For Each m In tmPobj
    
14.                 If m.submatches(2) & "" <> "" Then
    
15.                     x = x + 1 + Val(m.submatches(2)) - Val(m.submatches(0))
    
16.                 Else
    
17.                     x = x + 1
    
18.                 End If
    
19.             Next m
    
20.             Arr(i, 3) = x
    
21.         End If
    
22.         Arr(i, 4) = IIf(Arr(i, 1) = Arr(i, 3), "对", "X")
    
23.     Next i
    
24. End With
    
25. [a1].Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arr
    
26. End Sub
    

复制代码

demonimissyou

写一个自定义函数，直接在excel表里面对照就行了

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, cr, i&, j&, n&, strReplace$
   
    ar = [A1].CurrentRegion.Value
    For i = 2 To UBound(ar)
        strReplace = Replace(ar(i, 1), "R", "")
        br = Split(strReplace, ",")
        n = 0
        For j = 0 To UBound(br)
            cr = Split(br(j), "-")
            If UBound(cr) Then n = n + (cr(1) - cr(0) + 1) Else n = n + 1
        Next j
        ar(i, 2) = n
    Next i
   
    [A1].CurrentRegion.Value = ar
    Beep
End Sub

gwjkkkkk

请参考。。。