怎么把名单按顺序打印出来

元宝大爷 · 发表于 2023-5-5 10:27

汇总.rar (9.1 KB, 下载次数: 17)

请问怎么把Sheet1 中的名单转到确认表里打印出来？

祝洪忠- · 发表于 2023-5-5 10:34

A1输入 ="学校2023届初三学生综合素质评定结果确认表"

A4输入 1

B4输入 =VLOOKUP($A4,Sheet1!$A:$E,COLUMN(B1),) 向右复制

同时选中A1:E6 下拉

表哥佩奇 · 发表于 2023-5-5 10:37

序号填好之后用vlookup就行了

表哥佩奇 · 发表于 2023-5-5 10:41

打印的时候改一下序号就行了

3190496160 · 发表于 2023-5-5 10:41

Sub 按钮1_Click()
With Sheet1
r = .Cells(Rows.Count, 1).End(xlUp).Row
ar = .Range("a1:e" & r)
End With
With Sheets("签名确认表")
For i = 2 To UBound(ar)
      If Trim(ar(i, 2)) <> "" Then
         .[a4].Resize(1, 5) = Application.Index(ar, i, 0)
         .PrintOut
      End If
Next i
End With
MsgBox "打印完毕"
End Sub

3190496160 · 发表于 2023-5-5 10:42

元宝大爷 · 发表于 2023-5-5 10:43

祝洪忠- 发表于 2023-5-5 10:34
A1输入 ="学校2023届初三学生综合素质评定结果确认表"

A4输入 1

非常感谢，可以了

3190496160 · 发表于 2023-5-5 10:43

汇总.rar (17.66 KB, 下载次数: 4)

元宝大爷 · 发表于 2023-5-5 10:49

3190496160 发表于 2023-5-5 10:43

非常感谢，我去试试，学习学习

强哥123 · 发表于 2023-5-6 20:00

		自动登录	找回密码
密码			免费注册

[求助] 怎么把名单按顺序打印出来