Макрос регулярного выражения Excel, который будет искать совпадения в одном столбце, вставлять всю строку всех совпадений в другой лист

Мне нужно иметь возможность использовать регулярные выражения в макросе Excel, который будет искать в определенном столбце, а затем копировать и вставлять все строки, содержащие совпадения, в новый лист.

Я нашел скрипт, который будет искать по столбцам и вставлять совпадения в новый лист, но я не уверен, как изменить его, используя регулярные выражения вместо одной строки.

Я думаю об использовании этого макроса для поиска, но мне нужно изменить термин «почтовый ящик», чтобы он являлся термином / объектом регулярного выражения, но я не уверен, как его интегрировать.

Sub SearchForString()

   Dim LSearchRow As Integer
   Dim LCopyToRow As Integer

   On Error GoTo Err_Execute

   'Start search in row 4
   LSearchRow = 4

   'Start copying data to row 2 in Sheet2 (row counter variable)
   LCopyToRow = 2

   While Len(Range("A" & CStr(LSearchRow)).Value) > 0

      'If value in column E = "Mail Box", copy entire row to Sheet2
      If Range("E" & CStr(LSearchRow)).Value = "Mail Box" Then

         'Select row in Sheet1 to copy
         Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
         Selection.Copy

         'Paste row into Sheet2 in next row
         Sheets("Sheet2").Select
         Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
         ActiveSheet.Paste

         'Move counter to next row
         LCopyToRow = LCopyToRow + 1

         'Go back to Sheet1 to continue searching
         Sheets("Sheet1").Select

      End If

      LSearchRow = LSearchRow + 1

   Wend

   'Position on cell A3
   Application.CutCopyMode = False
   Range("A3").Select

   MsgBox "All matching data has been copied."

   Exit Sub

Err_Execute:
   MsgBox "An error occurred."

End Sub

Ответы на вопрос(2)

Ваш ответ на вопрос