データスクラブインエクセル

Question

これは、ここのコンピュータウィズのすべてのための簡単なものかもしれません！私はEXCELテキストボックスに文字列を抽出したいと思います。データセットはちょっと混乱しています。スペースや文字、その他のテキストは必要ありません。たとえば：

私は「ABC ABCABC12345D1」

       "ABC,ABCABC12345D1" 
          "KOhn!ABCABC12345D1" 
          "ABCABC12345D2 ABCABC12345D1" 
          "ABCABC12345D1ABCABC12345D1" 
          "MCDONALDABCABC12345D1" 

のうち、ABC12345D1を取る必要があるしかし、それはちょうど私が出て抽出する必要があり、識別子の一つです。ドラッグして残りの列にプルダウンできる式があることを願っています。

したがって、ABCABC12345D1は

で作られている_ _ _最初の3つの文字は

_ _ _ _ _第2の部分は、ロケーションタグ

_ _と少なくともあるIDであります過去がオンであるかオフであるか（私はそのカノーが抽出されると私は生きることができます）

今私は正しい8-10文字を取って、すべてのスペースを取ろうとしましたが、このデータをプルするには

Answer 1

正規表現？

Function Regex(Cell) 
    Dim RE As Object 

    Set RE = CreateObject("vbscript.regexp") 

    RE.Pattern = "(\w{6}\d{5}\w\d)" 
    RE.Global = True 
    RE.IgnoreCase = True 
    Set Matches = RE.Execute(Cell) 

    For Each res In Matches 
     Regex = Regex & "," & res 
    Next res 
    Regex = Mid(Regex, 2) 
End Function 

ALT + F11で開いているVBAエディタ。
挿入 - >モジュール 上記のコードをモジュールウィンドウに貼り付けてコピーします。 VBAエディターを閉じます。

Excelシートでは、この機能を有効にするには=Regex(A1)を書き込みます。