Søge efter en bestemt kombination af bogstaver og tal i regneark

Marker cellerne med teksten og kør makroen, den skriver de fundne numre i kolonnerne til højre for teksten

Public Sub FindNR()
    Dim C As Range, K As Integer, I As Integer, Data As String, NR As String
    K = 0
    For Each C In Selection.Cells
        Data = C.Value
        For I = 1 To (Len(Data) - 6) Step 2
            NR = Mid(Data, I, 7)
            If IsNumeric(Right(NR, 5)) And Not IsNumeric(Left(NR, 1)) And Not IsNumeric(Left(NR, 2)) Then
                K = K + 1
                C.Offset(0, K) = NR
            End If
            NR = ""
        Next I
        K = 0
    Next C
End Sub

Public Sub FindNR()
    Dim C As Range, K As Integer, I As Integer, Data As String, NR As String
    K = 0
    For Each C In Selection.Cells
        Data = C.Value
        For I = 1 To (Len(Data) - 6)
            NR = Mid(Data, I, 7)
            If IsNumeric(Right(NR, 5)) And Not IsNumeric(Left(NR, 1)) And Not IsNumeric(Left(NR, 2)) Then
                K = K + 1
                C.Offset(0, K) = NR
            End If
            NR = ""
        Next I
        K = 0
    Next C
End Sub