回答受付が終了しました

VBAで下記の例文でコードを作りたいのですが VBAを始めて初心者の為どう構成して良いか分からず、分かる方がいましたらお力をお貸しください。

画像

回答(1件)

0

Sub a() 'txtファイルをLineInputステートメントで '1行ずつ読込みセルに記載のワードを調べる 'パスはPC環境に併せて変更してください。 'ファイル名はここでは「果実.txt」としてます。 Dim myStr As String Dim c As Range Dim sRng As Range Set sRng = Range("A3") '開始するセルを指定 Open "C:\Users\○○○○○\果実.txt" For Input As #1 Do Until EOF(1) Line Input #1, myStr '1行単位で読込み For Each c In Range(sRng, sRng.End(xlDown)) If InStr(myStr, c.Value) > 0 Then 'メモの1行に検索ワードがあるかチェック c.Next = "○" End If Next c Loop Close #1 End Sub