編集履歴

回答編集履歴

修正

2019/09/21 07:43

投稿

スコア86461

answer CHANGED Viewed

@@ -8,10 +8,10 @@
 For i = LBound(Result) To UBound(Result)
     If IsNumeric(Result(i)) Then
         last = i
-        Range("E" & 4 + i) = Range("B" & 4 + i)
+        Range("E" & 3 + i) = Range("B" & 3 + i)
     End If
 Next i
-Range("E" & 4 + last) = Range("C" & 4 + m)
+Range("E" & 3 + last) = Range("C" & 3 + last)
 End Sub
 ```
 ですかね。