回答編集履歴

1

mgへ代入する段階でエラーが発生している事が考えられそうなので'を付ける場所を変更しました。

2018/09/14 02:37

投稿

n_takapyon
n_takapyon

スコア443

test CHANGED
@@ -1,3 +1,5 @@
1
+ mg = "'" & ws2.Cells(i, 118).Value
2
+
1
- ws3.Cells(r, 4).Value = "'" & Str(mg)
3
+ ws3.Cells(r, 4).Value = Str(mg)
2
4
 
3
5
  で、セルが文字列として認識しますが、'が付いちゃいますね。。