VBA - 範囲（ "すべてのセルを除いていくつか"）

Question

特定の範囲から離れてワークシート上のすべてのセルの内容をクリアしようとしています。私はクリップボードに範囲をコピーしようとしましたが、同じ場所に再びペーストすることはできましたが、通常のトリッキーな獣であることは秀でています。

私が同じにしたい範囲は、AB1：AC5です。

Apprichiated任意の提案...

（ここに私のコードがある）

Sub Button21_Click() 

Application.ScreenUpdating = False 

With Worksheets(2) 
.Range("AB1:AC5").Copy 
.Cells.ClearContents 
.Paste(Destination:=Sheets("Data").Range("AB1")) 
End With 

Application.ScreenUpdating = True 

End Sub 

Answer 1

代わりに配列を使用する：

Sub Button21_Click() 

Application.ScreenUpdating = False 

Dim oldValues As Variant 

With Worksheets(2) 
    oldValues = .Range("AB1:AC5").Value 
    .Cells.ClearContents 
    .Range("AB1:AC5").Value = oldValues 
End With 

Application.ScreenUpdating = True 

End Sub