ここから本文です

excelの質問です A1に、例えば以下のような文字が入っています。 例: 訓子府...

pet********さん

2018/3/2911:27:51

excelの質問です

A1に、例えば以下のような文字が入っています。
例: 訓子府町・(01549)・置戸町・(01550)

これを、B1以降の横のセルに数字部分のみ抽出したいです。

例:B1 C1
1549 1550
※先頭の0はなくても可


A1以降にも同様にあるため、手作業だとかなり時間がかかってしまいます。

どうにか短時間で抽出できる方法等ありませんでしょうか。
よろしくお願い致します。

閲覧数:
29
回答数:
1
お礼:
250枚

違反報告

ベストアンサーに選ばれた回答

msk********さん

2018/3/2911:51:20

マクロ例ですが如何でしょうか。

シート上でAlt+F11→VBE画面で挿入タブ→標準モジュール→サンプルコードを貼り付け→VBE終了
対象シートを選択→Alt+F8キー押下、sample実行

Sub sample()
Dim i As Long, j As Long, r
With CreateObject("VBScript.RegExp")
.Pattern = "\d+"
.Global = True
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Set r = .Execute(Cells(i, "A"))
If r.Count > 0 Then
For j = 0 To r.Count - 1
Cells(i, j + 2) = r(j)
Next
End If
Next
End With
End Sub

  • 質問者

    pet********さん

    2018/3/2912:48:35

    ばっちりです、助かりました
    ありがとうございました

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる