VBA Excel Заменить последние 2 цифры номера, если они встречаются в начале строки - PullRequest
Новая
       10

VBA Excel Заменить последние 2 цифры номера, если они встречаются в начале строки

0 голосов
/ 22 января 2019

Я пытаюсь заменить последние две цифры числа на «XX BLOCK», если оно встречается в начале строки и имеет более 2 цифр.

Я использую ссылку Регулярные выражения Microsoft VBScript 5.5 . 

Dim regEx As New RegExp
With regEx
    .Global = True 'Matches whole string, not just first occurrence
    .IgnoreCase = True 'Matches upper or lowercase
    .MultiLine = True 'Checks each line in case cell has multiple lines
    .pattern = "^(\d{2,})" 'Checks beginning of string for at least 2 digits
End With

'cell is set earlier in code not shown, refers to an Excel cell
regEx.replace(cell.Value, "XX BLOCK")

Желаемые результаты: 

"1091 foo address"      --> "10XX BLOCK foo address"
"1016 foo 1010 address" --> "10XX BLOCK foo 1010 address"
"foo 1081 address"      --> "foo 1081 address"
"10 bar address"        --> "XX BLOCK bar address"
"8 baz address"         --> "8 baz address"

Я новичок в регулярных выражениях и не знаю, с чего начать. Я попытался использовать ^(\d{2,}), но затем он заменяет весь номер.

Существует также гарантия, что за номером (если он существует) будет всегда с пробелом.

Ответы [ 2 ]

0 голосов
/ 23 января 2019

https://regex101.com/r/M1QrPZ/1

Pattern = "^\d{2}(\d{2})"

Попробуйте следующее 

Option Explicit
Private Sub Example()
    Dim RegExp As New RegExp
    Dim Pattern As String
    Dim rng As Range
    Dim Cel As Range

    Set rng = ActiveWorkbook.Sheets("Sheet1" _
                            ).Range("A1", Range("A9999" _
                            ).End(xlUp))


    Dim Matches As Variant
    For Each Cel In rng
        DoEvents
        Pattern = "^\d{2}(\d{2})"

        If Pattern <> "" Then
            With RegExp
                .Global = True
                .MultiLine = True
                .IgnoreCase = False
                .Pattern = Pattern
                 Set Matches = .Execute(Cel.Value)
            End With

            If Matches.Count > 0 Then
                Debug.Print Matches(0) ' full mach
                Debug.Print Matches(0).SubMatches(0) ' sub match
               Cel.Value = Replace(CStr(Cel), Matches(0).SubMatches(0), "XX BLOCK")
            End If
        End If

    Next
End Sub
0 голосов
/ 22 января 2019

Вы можете использовать 

^(\d*)\d{2}\b

Или, если вы не можете полагаться на границу слова, вы также можете использовать 

^(\d*)\d{2}(?!\d) ' no digit is allowed after the 2-digit sequence
^(\d*)\d{2}(?!\S) ' a whitespace boundary

И заменить на $1XX BLOCK.

См. Демонстрационную версию regex .

Подробности

  • ^ - начало строки
  • (\d*) - Группа 1: ноль или более цифр
  • \d{2} - две цифры
  • \b - граница слова, никакие цифры, буквы или _ не допускаются сразу после двух цифр
  • (?!\d) - отрицательный прогноз, который не соответствует совпадению, если справа от текущего местоположения есть цифра
  • (?!\S) - отрицательный просмотр, который не соответствует совпадению, если естьнепробельный символ сразу справа от текущего местоположения.
...