Excel如何每打印一次单元格内容变一次

有些情况下，我们在打印Excel文件时，有很多文件，比如打印员工卡，内容格式都一样，就是个别单元格的内容不同，只能改一次打印一次，效率低不说，可能不小心还会改错。当然可以做成几十甚至上百页依次打印，但这也不是高效的方法。提高Excel效率，VBA就要一显身手了。今天就为大家介绍，如何利用VBA实现，Excel表格每打印一次，个别单元格的内容变化一次。这里介绍两种情况，一种是单元格内容有规律的变化，另一种是单元格内容随着数据库变化。

工具/原料

Office2007

单元格内容有规律变化的情况

1、模型：sheet1中，已经设置好了打印区域。要求每打印一次，单元格B2中的日期就增加一天。

3、复制如下代码到右侧的空白区域，然后按F5执行代码即可实现每打印一张，B2的日期增加一天。Sub m()For i = 1 To 100ActiveSheet.PrintOut copies:=1Cells(2, 2) = Cells(2, 2) + iNextEnd Sub

2、Alt+F11，打开VBE，双击sheet1工作表，以确认后续的代码是在sheet1中执行。

4、代码详解如下：1.Sub m()——宏名，无需理会；2.For i = 1 To Sheets("sheet2").Range("A65536").End(3).Row——根据sheet2中的A列的数据决定打印份数，即A列有多少航，打印多少份；如果指定打印份数，则将Sheets("sheet2").Range("A65536").End(3).Row替换为打印份数；3.ActiveSheet.PrintOut copies:=1——打印代码，无需理会；4.Cells(2, 2) = Sheets("sheet2").Cells(i, 1)——前面是B2单元格，后面是sheets("sheet2")这是sheet2的工作表名，如果是其他名称，将"sheet2"替换为实际工作表名，后面的cells(i,1)即随着i的变化，以此变为A列从第一行往下的数据。5.Next——继续循环，无需理会；6.End Sub——结束宏，无需理会。