teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

要望のあった箇所をさらに記載しました。

2018/05/09 11:52

投稿

Rocky
Rocky

スコア261

answer CHANGED
@@ -16,4 +16,26 @@
16
16
 
17
17
  Next j
18
18
  Next i
19
+ ```
20
+
21
+ 20180509 20:00追記
22
+
23
+ ```vba
24
+ Dim counter As Long '数を数えるための変数
25
+ For i = 1 To [アクティブシートの最終行]
26
+ counter = 0'アクティブシートの文章ごとに初期化
27
+ For j = 1 To [NGワードシートの最終行]
28
+
29
+ Str1 = wS1.Cells(i, A)
30
+ Str2 = wS2.Cells(j, "A")
31
+
32
+ If InStr(Str1, Str2) <> 0 Then
33
+ wS1.Cells(i, A).Offset(0, 1).Select '右隣のセルを選択
34
+ Selection = "○" '選択したセルに○って入れる
35
+ counter = counter + 1 'さらにヒットした数を数える
36
+ End If
37
+
38
+ Next j
39
+ Next i
40
+
19
41
  ```