Excel巧用VBA，批量设计打印工牌，省时又高效

?经常在 上看到有人说，VBA早已过时了，这是真的吗？其实，对于极度依赖OFFICE三件套，特别是Excel的使用达人来说，如果能够学会VBA，那对工作的提升真的不是一星半点的了，而且VBA也不是人们想像的那样难学，只要你能用心去坚持学习，肯定能有所收获的。

现在小编来给大家分享一个案例：有个朋友是做人力的，有一天公司老板跟他说，公司里的人所有工牌都要换新的，要重新设计，于是老板就给他一个标准模版，现在他要将公司所有员工的个人信息都按照模版的模式填上去，然后打印。

PS:他完全是没有一点VBA基础的，就一新手，当然这种情况他也不知道怎么处理好。

如果你碰到这种情况呢？你会如何去处理？其实非常简单 ，我们一起来看看。

PS:我们上图给大家演示的数据比较少，但如果大数据的时候那节省的时间是相当多的。

代码如下：

Sub 胸卡()

With Sheets(“员工资料”)

h = .[a1].End(xlDown).Row

pah = ThisWorkbook.Path & “员工照片”

For i = 1 To h – 1

x = (i – 1) Mod 2

y = ((i + 1) 2) – 1

Set txt = Sheets(“”员工胸卡””).Shapes.AddTextbox(1