回答編集履歴

1

使用例コードの間違いの修正

2019/05/31 10:30

投稿

hatena19
hatena19

スコア33699

test CHANGED
@@ -158,7 +158,7 @@
158
158
 
159
159
  Dim myCopy As New MyCopyRange
160
160
 
161
- myCopy.Copy Range("B1:C4"), Range("E1"), PasteAll
161
+ myCopy.Cut Range("B1:C4"), Range("E1"), PasteAll
162
162
 
163
163
  End Sub
164
164