回答編集履歴

1

追記

2021/12/07 03:55

投稿

jinoji
jinoji

スコア4592

test CHANGED
@@ -1 +1,13 @@
1
1
  まずは On Error Resume Next をなくしてみたらどうでしょう。
2
+
3
+
4
+
5
+ ---
6
+
7
+ ```VBA
8
+
9
+ j.Offset(, 1).PasteSpecial Paste:=xlPasteValues
10
+
11
+ ```
12
+
13
+ とかはどうですか。