如何用word邮件合并制作准考证

learnings · 发表于 2020-1-23 17:56

期末考试制作准考证，一页填写四个学生的信息并且不一样。想用word邮件合并功能，但是制作以后，发现一页四个都是同一个人的信息。请大神帮忙

凌空一羽 · 发表于 2020-1-23 18:37

要加上“下一条记录”

learnings · 发表于 2020-1-23 19:29

试了一下，弄不好。能录个视频看看吗

3190496160 · 发表于 2020-1-23 22:44

直接在excel中用模板来完成，点击按钮瞬间完成，何必那么大费周章呢

learnings · 发表于 2020-1-24 09:35

3190496160 发表于 2020-1-23 22:44
直接在excel中用模板来完成，点击按钮瞬间完成，何必那么大费周章呢

不会呀真不会高手教下呗

learnings · 发表于 2020-1-24 09:35

凌空一羽发表于 2020-1-23 18:37
要加上“下一条记录”

试了一下，弄不好。能录个视频看看吗不胜感激

凌空一羽 · 发表于 2020-1-24 09:51

learnings 发表于 2020-1-24 09:35
试了一下，弄不好。能录个视频看看吗不胜感激

可以加我QQ，远程做一次给你。录屏视频太大了。

3190496160 · 发表于 2020-1-24 12:59

Sub zkz()
Application.ScreenUpdating = False
With Sheets("1、学生信息")
rs = .Cells(Rows.Count, 1).End(xlUp).Row
ar = .Range("a1:i" & rs)
End With
With Sheets("准考证")
ws = .Cells(Rows.Count, 1).End(xlUp).Row + 23
.Rows("22:" & ws).Delete
.Range("b3:b16,f3:f16") = Empty
t = UBound(ar) - 2
If t / 2 = Int(t / 2) Then
      y = Int(t / 2)
Else
      y = Int(t / 2) + 1
End If
m = 22
For i = 1 To y
      .Rows("1:21").Copy .Cells(m, 1)
      m = m + 21
Next i
m = 8
For i = 2 To UBound(ar) Step 2
      .Cells(m, 2) = ar(i, 2)
      .Cells(m + 2, 2) = ar(i, 7)
      .Cells(m + 4, 2) = ar(i, 4)
      .Cells(m + 6, 2) = ar(i, 6)
      .Cells(m + 7, 2) = ar(i, 5)
      .Cells(m + 8, 2) = ar(i, 9)

      If i = UBound(ar) Then GoTo 10
      .Cells(m, 6) = ar(i + 1, 2)
      .Cells(m + 2, 6) = ar(i + 1, 7)
      .Cells(m + 4, 6) = ar(i + 1, 4)
      .Cells(m + 6, 6) = ar(i + 1, 6)
      .Cells(m + 7, 6) = ar(i + 1, 5)
      .Cells(m + 8, 6) = ar(i + 1, 9)
      m = m + 21
10:
Next i
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2020-1-24 13:00

其实照片也可以一起弄进去的，但是，你没有提供照片，也只有作罢

2019-2020代营小学上期质量监测信息采集一览表(1).zip (33.79 KB, 下载次数: 25)

learnings · 发表于 2020-1-25 22:06

3190496160 发表于 2020-1-24 12:59
Sub zkz()
Application.ScreenUpdating = False
With Sheets("1、学生信息")

厉害了，谢谢

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

[求助] 如何用word邮件合并制作准考证

评分