VBA 判断前缀数字/值及标示

On_fire

VBA 判断前缀数字/值及标示

*

Sheet1是资料页, 行列是变量, 有空格

*

代码的逻辑如下,

1.      当前缀是数字时, 要判断出两个连续数值是否一样?

2.      两个连续数值一样的单元格, 添加边框标示

*

Sheet1 (2)是模拟结果

*

恳请大神出手帮忙, 感谢…!!!

quqiyuan

参与一下，仅供参考。。

quqiyuan

代码如下。。。
Sub test()
    Dim rng As Range, rg As Range
    Set rng = Sheet1.UsedRange
    For Each rg In rng
        If rg <> Empty Then
            If InStr(Val(rg), ".") = InStrRev(Val(rg), ".") And Val(rg) <> 0 Then
                s = Split(Val(rg), ".")
                If s(0) = s(1) Then
                    rg.Borders.LineStyle = 1
                    rg.Borders.Weight = xlMedium
                End If
            End If
        End If
    Next
    Beep
End Sub

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, i&, j&, regEx As Object, aMatch As Object, strReplace$
   
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "(\d+)\.(\d+)"

    With ActiveSheet.UsedRange
        ar = .Value
        For i = 2 To UBound(ar)
            For j = 1 To UBound(ar, 2)
                strReplace = Replace(ar(i, j), " ", "")
                If regEx.test(strReplace) Then
                    Set aMatch = regEx.Execute(strReplace)(0)
                    If aMatch.submatches(0) = aMatch.submatches(1) Then
                        With .Cells(i, j)
                            With .Borders
                                .LineStyle = 1
                                .Weight = xlMedium
                            End With
                        End With
                    End If
                End If
            Next j
        Next i
    End With
   
    Set regEx = Nothing
    Beep
End Sub

gwjkkkkk

参与一下。。。

On_fire

quqiyuan 发表于 2024-10-1 07:28
代码如下。。。
Sub test()
    Dim rng As Range, rg As Range

感谢老师, 国庆节快乐…!

On_fire

gwjkkkkk 发表于 2024-10-1 09:04
参与一下。。。

老师好, 好久不见, 国庆节快乐…!