回答編集履歴
1
出力先シートが非アクティブな状態である可能性を踏まえ、 wsDestination.Select を挿入
test
CHANGED
|
@@ -66,8 +66,11 @@
|
|
|
66
66
|
|
|
67
67
|
'このブックの1つめのワークシートを参照
|
|
68
68
|
Set wsDestination = ThisWorkbook.Worksheets(1)
|
|
69
|
-
|
|
69
|
+
|
|
70
70
|
Application.ScreenUpdating = False
|
|
71
|
+
|
|
72
|
+
'そのワークシートを選択
|
|
73
|
+
wsDestination.Select
|
|
71
74
|
|
|
72
75
|
'全てのセルをクリア
|
|
73
76
|
wsDestination.Cells.Clear
|