复制范围，然后将值粘贴到工作表的不同部分，然后再返回到原始范围

Question

点击按钮，我试图抓取一系列数据，粘贴值，删除原始数据范围，然后将值移回原始位置。像这样......

ws.Range("A11:AD400").Copy
ws.Range("A511:AD900").PasteSpecial xlPasteValues
ws.Range("A11:AD400").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
ws.Range("A511:AD900").Copy
ws.Range("A11:AD400").PasteSpecial xlPasteValues
ws.Range("A511:AD900").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents

Answer 1

如果您想要恢复正确的格式，请将宏记录为目标范围（ws.Range("A11:AD400")）的格式。然后，该代码可以重新用作您的修复代码，您可以根据需要运行该代码以重新格式化范围（例如，您可以链接到按钮）。

比仅仅重要的格式化复制，粘贴和复制更有效。

学习使用宏录制器：

1. http://www.excel-easy.com/vba/examples/macro-recorder.html
2. http://www.contextures.com/excel-macro-record-test.html

范围格式简介：

1. http://www.excelhowto.com/macros/formatting-a-range-of-cells-in-excel-vba/