teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

修正

2019/09/21 07:43

投稿

otn
otn

スコア86349

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" & 4 + i) = Range("B" & 4 + i)
11
+ Range("E" & 3 + i) = Range("B" & 3 + i)
12
12
  End If
13
13
  Next i
14
- Range("E" & 4 + last) = Range("C" & 4 + m)
14
+ Range("E" & 3 + last) = Range("C" & 3 + last)
15
15
  End Sub
16
16
  ```
17
17
  ですかね。