回答編集履歴
1
最終行訂正
answer
CHANGED
|
@@ -3,9 +3,9 @@
|
|
|
3
3
|
Dim j As Long
|
|
4
4
|
j=0
|
|
5
5
|
|
|
6
|
-
For i = 1 To
|
|
6
|
+
For i = 1 To MaxRow
|
|
7
7
|
If Cells(i, 1) = A Then
|
|
8
|
-
|
|
8
|
+
'～～～～
|
|
9
9
|
j = 1
|
|
10
10
|
ElseIf j = 1 Then
|
|
11
11
|
Exit For
|