■近似している文字列を抽出したい

こんばんは！ ExcelでVBAの一例です。 ↓の画像で左側がSheet1・右側がSheet2とします。 Alt＋F11キー → メニュー → 挿入 → 標準モジュール → VBE画面に ↓のコードをコピー＆ペーストしてマクロを実行してみてください。 （Alt＋F8キー → マクロ → マクロ実行です） Sub Sample1() 'この行から Dim i As Long, j As Long, k As Long, cnt As Long, str As String, wS1 As Worksheet, wS2 As Worksheet Set wS1 = Worksheets("Sheet1") Set wS2 = Worksheets("Sheet2") i = wS2.Cells(Rows.Count, "A").End(xlUp).Row If i > 1 Then Range