Excelから単語の特定のプレフィックスを削除する正規表現パターン

Question

いくつかのプレフィックスと余分な文字を削除した後、特定の単語を抽出するために、Excelで一連の文字列をクリーンアップしようとしています。最初は、FIND、LEFT、MIDなどでこれを試していました。そして、この役に立つポストを見つけて、正規表現で手を試してみました。

https://superuser.com/questions/794536/excel-formulas-for-stripping-out-prefix-suffix-around-number

私は正規表現の引数を取るの削除と呼ばれるが与えられたUDFを使用していました。今、私は削除したいアイテムをすべて削除できません。

添付のExcelには、私が何を試したか、そして私が見ている答えを見ることができます。 削除したいプレフィックスは次のとおりです。 括弧で囲まれた最初の数字 - 理想的には別の列に入れてください。 ハイフンの前には、 'l-'、 'al-'のような数字があります。 、次にこれらの接頭辞があります。 バイ 億FA WA WAL

どのように私は上記のすべてのプレフィックスを削除します単一の正規表現を書くのですか？データIが含まれているXLSMファイルへのリンク 機能の削除（文字列としてobjCellとしてレンジ、strPattern）

Dim RegEx As Object 
Set RegEx = CreateObject("VBScript.RegExp") 
RegEx.Global = True 
RegEx.Pattern = strPattern 
Remove = RegEx.Replace(objCell.Value, "") 

エンド機能ここで

されています。ここでは

は、私が使用していますUDFです持っている： https://www.dropbox.com/s/et9ee727ompj5fl/Regex%20Trials.xlsm?dl=0

、ここでは、私が探しています何を表示するスクリーンショットです：

Answer 1

私はこのために正規表現を使用することはありません：あなたは前に追加の定義された配列に対して前に追加のセル値とテストのいくつかの分割を行うことができます。

注：配列値であります他の前に追加のストリングが後に、リスト内の単語のための完璧な

Public Function RemovePrefix(RngSrc As Range) As String 
    If RngSrc.Count > 1 Then Exit Function 

On Error GoTo ExitFunction 
    Dim Prefixs() As String: Prefixs = Split("wal,wa',wa,bil,bi,fa", ",") 

    Dim Arr() As String, i As Long, Temp As String 

    Arr = Split(RngSrc, "-") 
    If UBound(Arr) > 0 Then 
     RemovePrefix = Arr(UBound(Arr)) 
     Exit Function 
    End If 

    Arr = Split(RngSrc, " ") 
    For i = 0 To UBound(Prefixs) 
     Temp = Arr(UBound(Arr)) 
     If InStr(Temp, Prefixs(i)) = 1 Then 
      RemovePrefix = Right(Temp, Len(Temp) - Len(Prefixs(i))) 
      Exit Function 
     End If 
    Next i 
    RemovePrefix = Temp 

ExitFunction: 
    If Err Then RemovePrefix = "Error" 
End Function 

Answer 2

ない100％ですが、あなたは

始める必要があるために、正規表現 (\d+\:)+\d+

(\d+\:)の

内訳は、これは繰り返しパターンであることを告げるx:

プラスブラケット後フォーマットに一致するパターンを発見します。正規表現はx:x:x

次の正規表現(?!l-|al-|a-|wa-|fa-|bi-)[a-z].*が多く、より複雑であると一致するパターンを見つけるように 最後\d+は、文字列の最後の数字と一致します。 まずは[a-z]を見てください。これは、aとzの間の任意の文字に一致するように指示します。その後、残りの単語をキャプチャしたいので、.*を使用して、最初の一致から文字列の最後までのすべてをキャプチャします（これにはa-z以外の文字が含まれます）。しかし、ハイフン（ほとんどの場合）の前に文字列の最初の部分をキャプチャしたくないので、?!を使用します。ネガティブ・ルック・アヘッドと呼ばれるものを使用します。これは括弧の中のものを探し、それらのビットを無視します。 |は単にまたはを意味します。その括弧の中の何かがマッチから無視されます。あなたの周りに遊びを持っているしたい場合はhttp://regexr.com/に行く して学ぶための便利なサイト/テスト正規表現である

Public Sub test() 
    Dim rng As Range 
    Dim matches 
    Dim c 

    With Sheet1 
     Set rng = .Range(.Cells(2, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 1)) 
    End With 

    For Each c In rng 
     With c 
      .Offset(0, 6) = ExecuteRegEx(.Value2, "(\d+\:)+\d+") 
      .Offset(0, 7) = ExecuteRegEx(.Value2, "(?!l-|al-|a-|wa-|fa-|bi-)[a-z].*") 
     End With 
    Next c 

End Sub 

---

Public Function ExecuteRegEx(str As String, pattern As String) As String 
    Dim RegEx As Object 
    Dim matches 

    Set RegEx = CreateObject("VBScript.RegExp") 
    With RegEx 
     .Global = True 
     .ignorecase = False 

     .pattern = pattern 
     If .test(str) Then 
      Set matches = .Execute(str) 
      ExecuteRegEx = matches(0) 
     Else 
      ExecuteRegEx = vbNullString 
     End If 
    End With 
End Function