Question

求用EXCEL宏批量打印的代码 ，步骤很简单，跪求代码。。。

Excel中有2个表。“打印”和“sheet1”。sheet1的A1——A165放着165个人的名字，需要将165个人的名字依次粘贴到”打印“表中的B2位置，然后打印。。应该就是这样了吧。。归跪求答案~~~~~~~~~

Answer 1

贴过去以后还要刷新 公式吧

Sub dayin()
Dim i&
For i = 1 To 165
Sheets("打印").[B2] = Sheets("sheet1").Cells(i, 1)
Sheets("打印").Select
ActiveSheet.Calculate
Sheets("打印").PrintOut
Next
End Sub

Answer 2

for i=1 to 165
sheets("打印").range(b2)=sheets("sheet1").range("A"& i)
sheets("打印").print
next i
'代码可能不准确，反正就是这个意思。具体的你可以再去查一下。

Answer 3

你可以用WORD的邮件合并的