批量打印

东山南凇

如何批量从工作薄1中的一列名单中，逐个提取名字复制到工作薄2中的某个单元格中，并打印工作簿2。谢谢，在线等谢谢

东山南凇

我要把工作薄“名单”中B1：B30的姓名，逐个复制到工作簿“体温信息登记表”中的B2C2的合并单元格中，再把不同人的表格打印出来。高手，请帮忙。谢谢！

liulang0808

Sub 按钮1_Click()
    r = Sheets("名单").Cells(Rows.Count, 2).End(3).Row
    arr = Sheets("名单").Range("b4:b" & r)
    For j = 1 To UBound(arr)
        [b2] = arr(j, 1)
        [a1:i24].PrintOut
    Next j
End Sub

liulang0808

看看是否满足需求吧

东山南凇

谢谢，我先试试。

东山南凇

liulang0808 发表于 2020-2-11 21:27
看看是否满足需求吧

今天特意上来感谢你，昨天的代码，真的帮我们省了很多时间。谢谢！