回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -41,6 +41,8 @@
|
|
|
41
41
|
'貼付先セル範囲
|
|
42
42
|
Dim ToRange As Range
|
|
43
43
|
Set ToRange = wb.Worksheets("Sheet1").Cells(1, 1).Resize(FromRng.Rows.Count, FromRng.Columns.Count)
|
|
44
|
+
'貼付先がテーブルなら下記のコードで
|
|
45
|
+
'Set ToRange = wb.Worksheets("Sheet1").ListObjects(1).DataBodyRange.Resize(FromRng.Rows.Count, FromRng.Columns.Count)
|
|
44
46
|
|
|
45
47
|
FromRng.Copy Destination:=ToRange '書式もコピーされる
|
|
46
48
|
'ToRange.Value = FromRng.Value '値だけの場合はこちらのコードで
|