回答編集履歴
1
追記
test
CHANGED
|
@@ -5,3 +5,17 @@
|
|
|
5
5
|
2語掛け合わせの場合に``keyword3 = Worksheets("カテゴリ").Cells(4, no3).End(xlDown).Row``でエラーになるとのことですが、``Worksheets("掛け合わせ作業用").Cells(4, 4)``が空白の場合``no3``に0が設定されるためだと思います。
|
|
6
6
|
|
|
7
7
|
セルに数値が入力されているかを事前にチェックすれば良いでしょう。
|
|
8
|
+
|
|
9
|
+
|
|
10
|
+
|
|
11
|
+
---
|
|
12
|
+
|
|
13
|
+
<追記>
|
|
14
|
+
|
|
15
|
+
|
|
16
|
+
|
|
17
|
+
【キーワード群の語数が1つの場合、結果が正しく表示されないについて】
|
|
18
|
+
|
|
19
|
+
|
|
20
|
+
|
|
21
|
+
カテゴリシートの4行目のセルにのみ値が入力されている場合は``.End(xlDown).Row``にてシートの最終行である「1048576」を取得します。そのため``For a = 4 To keyword1``にてaが1048576になるまでループ処理していると思われます。``.End(xlDown).Row``のセルに値が入力されているかどうかチェックすれば良いかと思います。
|