Madhabi希望打印工作表的四个副本，但是每个副本的单元格A7的值都更改。这四个值是“原始”，

“重复”，“文件”和“驱动程序”。其他所有数据都一样，Madhabi想知道他如何在打印时更改单元格A7的文本。

一种可能的方法是创建四个基本上包含相同信息的不同工作表。工作表2至4都可以引用工作表1上的所有单元格，但可以在每个工作表上将其设置为不同值（“原始”，

“重复”等的单元格A7）。

但是，更好的方法是创建一个可用于打印的快速宏。该宏可以在每次打印工作表之前处理更改单元格A7的值。这是一个简单的示例：

Sub PrintCopies()

Dim i As Integer     Dim VList As Variant

VList = Array("Original", "Duplicate", "File", "Driver")

For i = LBound(VList) To UBound(VList)

Range("A7") = VList(i)

ActiveSheet.PrintOut      Next End Sub

宏将目的地为单元格A7的四个值放入数组中。宏然后逐步遍历四个数组元素中的每一个，将值放入单元格A7中，然后打印工作表。可以使用系统上的默认打印机进行打印。

可以轻松地将宏分配给快捷键或快速访问工具栏（如其他_ExcelTips_中所述），以便您可以快速打印所有四个副本。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（9962）适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。