Excelのアドレスリストから郵便番号を抽出するにはどうすればよいですか？

Excelに顧客の郵便番号を含む完全な住所のリストがあり、これらの住所から郵便番号のみを抽出したいのですが、XNUMXつずつ抽出するよりも良い方法はありますか？ ここでは、Excelで一度に複数の郵便番号を一括抽出する簡単な方法を説明します。

Excelで数式を使用して郵便番号を抽出します

ExcelでVBAを使用して郵便番号を抽出する

Excelで数式を使用して郵便番号を抽出します

ほとんどの場合、郵便番号は8文字以内です。

空白のセルを選択して、この数式を入力します =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) （A1は郵便番号を抽出するセルです）、を押します 入力します ボタンを押し、塗りつぶしハンドルをドラッグして、必要な範囲を塗りつぶします。 これで、リストから郵便番号のみが抽出されていることがわかります。

ExcelでVBAを使用して郵便番号を抽出する

Excelで完全なアドレスから郵便番号をすばやく抽出できるVBAがあります。

1.選択する列のセルを選択し、を押します Altキー+ F11を開くには アプリケーション向け Microsoft Visual Basic 窓。

2.ポップアップウィンドウで、をクリックします インセット > モジュール、次に次のVBAコードをモジュールに貼り付けます。

VBA：郵便番号のみを抽出します

Sub ExtractPostCode()
'Updateby20140512
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xValue = Split(Rng.Value, " ")
    For i = LBound(xValue) To UBound(xValue)
        If xValue(i) Like "[A-Z]*#*" Then
            Rng.Value = xValue(i) & " " & xValue(i + 1)
            Exit For
        End If
    Next
Next
End Sub

3。 次に、をクリックします ラン ボタンをクリックして、郵便番号のみを抽出する範囲を選択します。 スクリーンショットを参照してください：

4。 クリック OK、範囲内で予約されているのは郵便番号のみです。

注記：

（1）上記のVBAを実行すると、元のデータが変更されます。最初にそれらをコピーして保存することをお勧めします。

（2）このVBAマクロは、「1513 4th St NW、Washington、DC20001」のように最初の部分に文字のみが含まれている郵便番号を抽出できません。

関連記事：

• Excelの名前からイニシャルを抽出する
• Excelで文字列からXNUMX進値を抽出します