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

learnings

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

凌空一羽

要加上“下一条记录”

learnings

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

3190496160

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

learnings

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

不会呀  真不会  高手教下呗

learnings

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

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

凌空一羽

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

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

3190496160

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

其实照片也可以一起弄进去的，但是， 你没有提供照片，也只有作罢
2019-2020代营小学上期质量监测信息采集一览表(1).zip (33.79 KB, 下载次数: 25)

2020-1-24 13:00 上传

点击文件名下载附件

learnings

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

厉害了，谢谢