如何防止Excel中的初始化宏清除我需要保存的数据

Question

更新宏将数据从“输入”工作表写入“订单”工作表。我想初始化输入表上的数据，但它也清除写入订单表的数据。 任何帮助将不胜感激。 更新宏：

Sheets("Orders").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Input!R17C7"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=Input!R17C9" 

初始化宏：清除两张表中的数据

Sheets("Input").Select
Range("G17").Select
Selection.ClearContents
Range("I17").Select
Selection.ClearContents

Answer 1

你应该避免使用.Select＆amp; .Selection方法尽可能。有关详细信息，请参阅this link。

请注意如何跳过这些线并直接跳到结论：

Thisworkbook.Sheets("Orders").Range("B2").FormulaR1C1 = "Input!R17C7"
Thisworkbook.SHeets("Orders").Range("C2").FormulaR1C1 = "Input!R17C9"

＆安培;

Thisworkbook.Sheets("Input").Range("G17:I17").ClearContents

Answer 2

只写这两行

Sheets("Input").Range("G17").ClearContents
Sheets("Input").Range("I17").ClearContents

清除＆{34;输入＆＃34;的G17和I17中的内容。