回答編集履歴
1
コード修正
test
CHANGED
@@ -84,6 +84,10 @@
|
|
84
84
|
|
85
85
|
Set ToRange = wb.Worksheets("Sheet1").Cells(1, 1).Resize(FromRng.Rows.Count, FromRng.Columns.Count)
|
86
86
|
|
87
|
+
'貼付先がテーブルなら下記のコードで
|
88
|
+
|
89
|
+
'Set ToRange = wb.Worksheets("Sheet1").ListObjects(1).DataBodyRange.Resize(FromRng.Rows.Count, FromRng.Columns.Count)
|
90
|
+
|
87
91
|
|
88
92
|
|
89
93
|
FromRng.Copy Destination:=ToRange '書式もコピーされる
|