回答編集履歴
1
作業領域のクリア処理を追加
test
CHANGED
|
@@ -108,6 +108,10 @@
|
|
|
108
108
|
|
|
109
109
|
wshCmp.Range("A31:i37").Value = wshOrd.Range("A31:i37").Value
|
|
110
110
|
|
|
111
|
+
wshOrd.Range("A30:i45").ClearContents
|
|
112
|
+
|
|
113
|
+
wshOrd.Range("A30:i45").ClearFormats
|
|
114
|
+
|
|
111
115
|
|
|
112
116
|
|
|
113
117
|
Set wshOrd = Nothing
|