ID非公開

2022/5/23 22:45

22回答

エクセルのマクロで抜き取りを実施したいのですがうまくいかず、皆さんのお力をお借りしたく投稿しました。

エクセルのマクロで抜き取りを実施したいのですがうまくいかず、皆さんのお力をお借りしたく投稿しました。 下記が実現可能か、実現可能でしたらどのようにマクロを組めばよいかご教授いただけないでしょうか。 よろしくお願いいたします。 【前提】 ２つのBook（エクセルファイル）があり、１つ目のBookにはA列に項目のみ。２つ目いはA列に項目、B列に値段が書かれているとします。 １つ目と２つ目の項目は完全に一致しているものもあれば片方が半角、もう片方が全角が混ざっていたりします。（下記イメージです） １つ目のBook A列 | B列 -------------------- りんご１｜ みかん ｜ メロン ｜ りんご2 | 2つ目のBook A列 ｜B列 -------------------- ﾘﾝｺﾞ 2 | 100 みかん | 150 メろﾝ | 200 転記(マクロ実行)後のイメージ A列 | B列 -------------------- りんご１｜ みかん ｜ 150 メロン ｜ 200 りんご2 | 100 【やりたいこと】 ・半角、全角、大文字、小文字が混ざっててもA列の項目をから一致する行を見つけ２つ目のBookのB列の値を抜きだし転記できるようにしたい ・似た項目が複数あった場合一致率が高い項目の行にB列の値を転記する

Excel | Visual Basic・74閲覧・xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

0
lgk********

2022/5/24 7:45

１つ目のBook：Book1.xlsm ２つ目のBook：Book2.xlsx とします。 どこからデータが始まるか書いてないので、１行目からとします。 そのままではできないので、Book2.xlsxを全角ひらかなに書き換えます。 Option Explicit ' Sub Macro1()     Dim RInp As Long     Dim StrWork As Variant     Dim I As Worksheet     Dim Find As Range '     Application.ScreenUpdating = False     Workbooks("Book2.xlsx").Activate '     For RInp = 1 To Cells(Rows.Count, "A").End(xlUp).Row         StrWork = Cells(RInp, "A")         StrWork = StrConv(StrWork, vbWide + vbHiragana)         Cells(RInp, "A") = Replace(StrWork, " ", "")     Next RInp     Set I = ActiveWorkbook.ActiveSheet     Workbooks("Book1.xlsm").Activate '     For RInp = 1 To Cells(Rows.Count, "A").End(xlUp).Row         StrWork = Cells(RInp, "A")         StrWork = StrConv(StrWork, vbWide + vbHiragana)         StrWork = Replace(StrWork, " ", "")         Set StrWork = I.[A:A].Find(StrWork, LookAt:=xlWhole) '         If Not StrWork Is Nothing Then             Cells(RInp, "B") = StrWork.Offset(, 1)         End If     Next RInp End Sub 件数が多いと時間がかかります。 又は、Book2.xlsxの書き換えをしたくない場合、変身して下さい。

lgk********

2022/5/24 7:46

空白があったりなかったりするのですね。 ここは、全角空白が半角空白に置き換わるので、このままでは動きません。 半角空白は全角空白にして下さい。 " " → "　" にして下さい。

その他の回答（1件）

0
ささいさいさい

カテゴリマスター

2022/5/24 1:42

>半角、全角、大文字、小文字 ①こちらは、下記みたいにそれぞれのON OFF指定がなければさほど難しくはない 半角ON、全角OFF、大文字ON、小文字OFF 半角OFF、全角OFF、大文字OFF、小文字ON ただこちらは、英数字を想定しています。 >似た項目が複数あった場合一致率が高い項目の行にB列の値を転記する ②これが非常にやっかい 何を持って一致率が高いというロジックがないので 実装は不可能です。 またさきほどあげた①のそれぞれの違いで類似性が変化すると、そのパターンのだけでもかなり面倒な分岐処理が必要です。 また、 りんご リンゴ りンご ↑は同じもとのとして処理するのか。類似性の問題として処理するのか？ さらに 林檎 ﾘﾝｺﾞ 加えると・・・ ひらがな、かたかな、漢字の違いは類似と想定していますか？ その他、完全一致なら問題ないですが、前方一致、後方一致、中間一致なども含めるとさらに複雑になります。 業務で似たようなツール作りましたが、正直あまりやりたくないです。 ロジックが複雑で、バグがあった場合の修正が大変なのと、作成者以外がメンテする場合、かなりきついかなと思います。