文字列から必要な文字列を抽出する方法

質問

• アメリカの税理士事務所でアルバイトをしている人が、PDFのクレジット明細をエクセルに整理する作業に時間がかかっている。会社名を抽出する手作業が必要で、スペースの数や会社名の特定が難しい。効率的なやり方やアイディアを求めている。
• クレジット明細の項目に含まれる会社名を抽出する作業が手作業であり、スペースの数や会社名の特定が難しい。作業の工数を減らすためにクレジット明細の行を語順に並び替え、会社名一覧を作成している。
• アメリカの税理士事務所でアルバイトをしている人が、PDFのクレジット明細をエクセルに整理する作業に時間がかかっている。会社名を抽出する手作業が必要で、効率的なやり方やアイディアを求めている。

回答No.2

kon555 · ベストアンサー

おそらく効率化自体は可能です。関数よりVBA向きの案件だと思います。
　一番遠回りですが確実な手段は、貴方自身がVBAのスキルを身に着ける事ですね。

　こうしたデータ選別の場合に重要なのは、どんな条件で会社名とそれ以外とを分けるか、という部分です。
　ご提示の「英語の大文字箇所が1つの利用会社名を表し」というだけなら簡単です。
https://vbabeginner.net/vbaで文字列から英字のみを抽出する/
　のような形で、英字のみや大文字のみ、小文字のみを抜き出すのは容易なので。
　また「会社名一覧は一部ですがデータとしてあります。」という事なので、それと一致するかを条件付けとする事も出来ます。
　ただ書かれている内容からすると、実務的には大文字を抜き出すのではダメで、一覧表とのマッチングでも十分ではないようです。
　この判定条件の設定が一番のキモです。この部分が明確になっていれば、確実に対応可能です。
　そしてこの部分を考えられるのは、実データを知っている貴方だけです。なので「一番遠回りですが確実な手段は、貴方自身がVBAのスキルを身に着ける事です」となるわけです。

で、そこで終わるのは何なので、一応軽い作業補助のマクロを組んでみました。

Sub tes()
Dim i As Long
Dim α1, α2
α1 = InputBox("指定数を入力してください")

For i = 0 To CLng(α1)
　α2 = α2 & ActiveCell.Offset(0, i)
Next
ActiveCell = α2
End Sub

　マクロを起動すると数字を入力するウインドウが起動します。
　アクティブなセルを起点として、ウインドウに入れた数字の分だけ、横のセルの語句を合成してアクティブセルを上書きします。
「B」の形の表であれば、これで楽になるような？　10分程度で組んだものなので色々雑なのはお許しを。
　またエクセルのマクロはショートカット登録できますので、それを活用するとさらに楽になります。
https://www.moug.net/tech/exvba/0150112.html

　個人的にはこうしたある程度の汎用性のある作業補助マクロを自分で組んで使い分けると、貴方が今従事しているような単純事務作業は劇的に楽になります。
　興味があればお試しを。

お礼

お礼が遅くなり申し訳ございません、回答いただきありがとうございました！参考にさせて頂きました。