質問編集履歴
1
「a~zのアルファベット」は１例として記載しました。「特定の文字列」という表現の方がわかりやすいですね。わかりにくくすみませんでした。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
|
-
下記のコードは、cells(i, "B")の値が
|
|
1
|
+
下記のコードは、cells(i, "B")の値が「特定の文字列」でないものを、行ごと削除するマクロです。
|
|
2
2
|
|
|
3
|
-
条件文`And Not`を以下のように
|
|
3
|
+
条件文`And Not`を以下のように条件数の分だけ書くほかに、**もっと簡略な記述方法**があれば教えていただきたく。
|
|
4
4
|
|
|
5
5
|
是非よろしくお願いします。
|
|
6
6
|
|
|
@@ -14,19 +14,19 @@
|
|
|
14
14
|
|
|
15
15
|
cellValue = Cells(i, "B").Value
|
|
16
16
|
|
|
17
|
-
If Not cellValue = "
|
|
17
|
+
If Not cellValue = "文字列１" And Not cellValue = "文字列２" _
|
|
18
18
|
|
|
19
|
-
And Not cellValue = "
|
|
19
|
+
And Not cellValue = "文字列３" _
|
|
20
20
|
|
|
21
|
-
And Not cellValue = "
|
|
21
|
+
And Not cellValue = "文字列４" _
|
|
22
22
|
|
|
23
|
-
And Not cellValue = "
|
|
23
|
+
And Not cellValue = "文字列５" _
|
|
24
24
|
|
|
25
|
-
And Not cellValue = "
|
|
25
|
+
And Not cellValue = "文字列６" _
|
|
26
26
|
|
|
27
|
-
And Not cellValue = "
|
|
27
|
+
And Not cellValue = "文字列７" _
|
|
28
28
|
|
|
29
|
-
And Not cellValue = "
|
|
29
|
+
And Not cellValue = "文字列８" _
|
|
30
30
|
|
|
31
31
|
・
|
|
32
32
|
|
|
@@ -38,7 +38,7 @@
|
|
|
38
38
|
|
|
39
39
|
・
|
|
40
40
|
|
|
41
|
-
And Not cellValue= "
|
|
41
|
+
And Not cellValue= "文字列２０" Then
|
|
42
42
|
|
|
43
43
|
Cells(i, "B").EntireRow.Delete
|
|
44
44
|
|