Excel VBA实现双面姓名胸牌打印的特定数据排版需求求助

需求回顾 #

需要将Excel中Name、Last Name、Company列数据处理为适配Word双面打印胸牌的格式：

• 每页Word模板可打印6个胸牌（2行3列）
• 数据需按每6行一组复制，每组内按3-2-1-6-5-4的顺序重排，生成镜像合并记录，确保正反两面打印内容完全对齐

适配VBA代码 #

Sub PrepareBadgeDataForDuplexPrint()
    Dim srcSheet As Worksheet
    Dim destSheet As Worksheet
    Dim lastRow As Long
    Dim groupCount As Long
    Dim i As Long, j As Long
    Dim srcRow As Long, destRow As Long
    ' 定义每组的重排顺序索引（对应原组内的第1-6行）
    Dim rearrangeOrder As Variant
    rearrangeOrder = Array(3, 2, 1, 6, 5, 4)
    
    ' 设置源工作表（根据实际修改名称）
    Set srcSheet = ThisWorkbook.Worksheets("数据源")
    ' 创建新工作表存放处理后的数据
    On Error Resume Next
    Set destSheet = ThisWorkbook.Worksheets("胸牌打印数据")
    If Err.Number <> 0 Then
        Set destSheet = ThisWorkbook.Worksheets.Add(After:=srcSheet)
        destSheet.Name = "胸牌打印数据"
    End If
    On Error GoTo 0
    
    ' 清空目标表已有数据（保留表头）
    destSheet.Rows("2:" & destSheet.Rows.Count).ClearContents
    ' 复制表头到目标表
    srcSheet.Rows(1).Copy destSheet.Rows(1)
    
    ' 获取源数据最后一行
    lastRow = srcSheet.Cells(srcSheet.Rows.Count, "A").End(xlUp).Row
    ' 计算分组数（每组6条数据，不足6条的最后一组忽略，需手动补充或调整）
    groupCount = Int((lastRow - 1) / 6)
    
    destRow = 2 ' 目标表从第2行开始写入
    
    ' 遍历每组数据
    For i = 1 To groupCount
        ' 处理原组的6条数据（源表起始行：1表头 + (i-1)*6 +1）
        srcRow = 1 + (i - 1) * 6 + 1
        ' 按重排顺序复制每组数据（反面打印用）
        For j = LBound(rearrangeOrder) To UBound(rearrangeOrder)
            srcSheet.Rows(srcRow + rearrangeOrder(j) - 1).Copy destSheet.Rows(destRow)
            destRow = destRow + 1
        Next j
        ' 复制原组的6条数据（正面打印用）
        For j = 0 To 5
            srcSheet.Rows(srcRow + j).Copy destSheet.Rows(destRow)
            destRow = destRow + 1
        Next j
    Next i
    
    ' 自动调整目标表列宽
    destSheet.Columns.AutoFit
    
    MsgBox "数据处理完成！结果已保存到「胸牌打印数据」工作表。", vbInformation
End Sub

代码关键说明 #

• 分组逻辑：以每6条数据为一组，自动计算总组数，忽略不足6条的末尾数据（若需处理剩余数据，可手动补充空行或修改分组判断逻辑）
• 重排规则：通过rearrangeOrder数组定义每组内的行顺序（3-2-1-6-5-4），直接映射原组内的行索引
• 数据结构：先写入重排后的镜像数据（用于反面打印），再写入原顺序数据（用于正面打印），确保双面打印时位置完全对应
• 工作表处理：自动创建/复用目标工作表，保留原数据表头，处理后自动适配列宽

使用步骤 #

1. 打开包含胸牌数据的Excel文件，确保数据存放在名为数据源的工作表中（A列Name、B列Last Name、C列Company，第1行为表头）
2. 按Alt + F11打开VBA编辑器，右键点击当前工作簿，选择「插入」→「模块」
3. 将上述代码粘贴到模块窗口中
4. 回到Excel界面，按Alt + F8选择PrepareBadgeDataForDuplexPrint宏并执行
5. 处理完成后，将「胸牌打印数据」工作表的数据导入Word模板即可进行双面打印

内容的提问来源于stack exchange，提问作者Fausnata