回答編集履歴
1
修正
answer
CHANGED
@@ -8,10 +8,10 @@
|
|
8
8
|
For i = LBound(Result) To UBound(Result)
|
9
9
|
If IsNumeric(Result(i)) Then
|
10
10
|
last = i
|
11
|
-
Range("E" &
|
11
|
+
Range("E" & 3 + i) = Range("B" & 3 + i)
|
12
12
|
End If
|
13
13
|
Next i
|
14
|
-
Range("E" &
|
14
|
+
Range("E" & 3 + last) = Range("C" & 3 + last)
|
15
15
|
End Sub
|
16
16
|
```
|
17
17
|
ですかね。
|