質問編集履歴
1
誤字
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -14,7 +14,7 @@
|
|
|
14
14
|
Dim i, lastrow As Long
|
|
15
15
|
lastrow = Range("A" & Rows.Count).End(xlUp).Row
|
|
16
16
|
For i = 1 To lastrow
|
|
17
|
-
If
|
|
17
|
+
If Range("A ; i").Value Like "123*" Then
|
|
18
18
|
|
|
19
19
|
If Range("B" & i).Value = "ネコ" Or "イヌ" Then
|
|
20
20
|
|