VBA について Bing AI での質問の仕方

　友人が、bing AI を使って質問した処、回答を拒否されたそうです。

Q：VBA で表記ゆれを考慮した処理の実装方法は？
A：すみませんが、それについて回答を出すことができません。何か他のことでお手伝いできることはありますか？

　うーん、どうして拒否されたか不明です。

私が同様の質問を行いました。

Q：VBA で表記ゆれを考慮した処理の実装方法について教えて
A：VBA で表記ゆれを考慮した処理の実装方法ですね。表記ゆれとは、同じ意味を持つ単語や表現が複数存在することを指します。
例えば、「株式会社」、「（株）」、「㈱」などがあります。置換処理とは、文字列の中から特定の文字列を検索し、別の文字列に置き換える処理です。VBA では、Replace 関数を使用することで置換処理をおこなうことができます。また、正規表現を使用することで、より高度な置換処理をおこなうこともできます。

Q：実際の実装サンプルを提示して
A：はい、こちらに VBA で Replace 関数の使い方サンプルコードをご紹介します。

上記のサンプルコードでは、文字列「株式会社(株)㈱」から、それぞれの表記ゆれを除去しています。Replace 関数を使用することで、文字列中の特定の文字列を検索し、別の文字列に置き換えることができます。このように表記ゆれを考慮した処理を実装する場合には、置換処理を行うことが一般的です。

少し質問が漠然とし過ぎた帰来があります。それで、そもそもどういった経緯で友人が質問を行ったかと言うと、

A列にあるリストからB列のリストと一致するものを検索したいです。
表記揺れがあるため、3文字以上一致しているものがあるかどうかを検索したいと思っています。

一応この件は案件数が少なかったので手作業で行いました

ということでした。

こんな時ですけど、目的も含めてプロンプトに書いた方が良いです。

Q：エクセルシートのA列にあるリストからB列のリストと一致するものを検索し、一致した行が判るようにA列の行番号と同じ位置のC列に〇 の文字を入れたい。但し、A列とB列のリストには表記ゆれがあるので、3文字以上一致していれば一致と看做すとして VBA のサンプルコードを提示して下さい。
A：エクセルのVBAで、A列にあるリストからB列のリストと一致するものを検索し、一致した行が判るようにA列の行番号と同じ位置のC列に〇の文字を入れる方法についてですね。A列とB列のリストには表記ゆれがあるので、3文字以上一致していれば一致と看做すとして、以下のサンプルコードをご参考ください。

Sub test()
    Dim i As Long
    Dim j As Long
    Dim lastrow As Long
    Dim lastrow2 As Long
    Dim str1 As String
    Dim str2 As String

    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    lastrow2 = Cells(Rows.Count, 2).End(xlUp).Row

    For i = 1 To lastrow
        str1 = Cells(i, 1).Value
        For j = 1 To lastrow2
            str2 = Cells(j, 2).Value
            If InStr(str1, str2) >= 3 Then
                Cells(i, 3).Value = "〇"
            End If
       Next j
    Next i

End Sub

上記コードは、A列とB列の最終行を取得し、A列から順番に値を取得し、B列から順番に値を取得して比較し、一致した場合はC列に〇を入れるという処理を行います。

ということで、質問の仕方を少し変えると目的のコードが手に入ると思います。

今回は、3文字以上一致 としましたけど具体的なデータ例を挙げて、一致と見做す最適な方法も提示して貰った方が参考になると思われます。

ソフトエンジニアでもないと、この先は発想が出ないかも知れませんが、「株式会社」、「（株）」、「㈱」の様に一般的な表記ゆれリストをD列に展開して貰って A列の表記ゆれを解決したリストを E列に展開して貰ってから B列と比較するとか…

ひでのブログ　https://hidekyan.cocolog-nifty.com/blog/