回答編集履歴
1
コード修正
test
CHANGED
@@ -6,8 +6,6 @@
|
|
6
6
|
|
7
7
|
ws.Range("AJ1:AK500").Copy
|
8
8
|
|
9
|
-
Set TargetCell =
|
10
|
-
|
11
9
|
MergeSheet.Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).PasteSpecial _
|
12
10
|
|
13
11
|
Paste:=xlPasteValues
|