求帮忙把表格Sheet2，按照户，到打印版本

心随我动07

请各位大神帮忙

3190496160

Sub 批量打印()
Application.ScreenUpdating = False
Dim ar As Variant
Dim arr()
ar = Sheets("Sheet2").[a1].CurrentRegion
With Sheets("操作")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    br = .Range("a2:a" & r)
    ks = .[f1]
    js = .[h1]
    If ks = "" Or js = "" Then MsgBox "请输入要打印的开始行和结束行!": End
    If ks > js Then MsgBox "结束行必须大于等于开始行！": End
    If js > UBound(br) Then MsgBox "结束行行号超过了数据的有效行数！": End
End With
With Sheets("打印版本")
    For i = ks To js
        n = 0
        ReDim arr(1 To UBound(ar), 1 To 20)
        hz = Trim(br(i, 1))
        For s = 2 To UBound(ar)
            If Trim(ar(s, 21)) = hz Then
                n = n + 1
                arr(n, 1) = n
                arr(n, 2) = ar(s, 4)
                arr(n, 3) = ar(s, 6)
                arr(n, 4) = ar(s, 5)
                arr(n, 5) = ar(s, 3)
                arr(n, 6) = ar(s, 7)
                arr(n, 7) = ar(s, 13)
                arr(n, 12) = ar(s, 17)
                arr(n, 14) = ar(s, 17)
                arr(n, 15) = ar(s, 20)
                arr(n, 16) = ar(s, 15)
                arr(n, 17) = ar(s, 14)
            End If
        Next s
        .Range("a8:t15") = Empty
        .[a8].Resize(n, UBound(arr, 2)) = arr
        .PrintOut
    Next i
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

新建 XLS 工作表 (3).rar (130.83 KB, 下载次数: 30)

2022-5-14 16:56 上传

点击文件名下载附件

zpy2

559户。。。。有点复杂。

zpy2

zpy2 发表于 2022-5-14 17:38
559户。。。。有点复杂。

select count(1) 户数 from 入户信息采集表生成主子格式 where 与户主关系='户主'; create temp table aa as  select iif(与户主关系="户主",姓名,'') 户主姓名2,* from 入户信息采集表生成主子格式; drop table if exists 根据模板拆分工作表到工作薄; create table 根据模板拆分工作表到工作薄 as select fillna(户主姓名2) 户主姓名,* from aa; select '<a href="/bsbm/pdo/eh2/a2502/mybookmark/sql/sales/split_excel/template_upload.php">上传模板</a>' 下一步; select * from 根据模板拆分工作表到工作薄; select 户主姓名,group_concat(姓名||'~'||性别||'~'||身份号码||'~'||与户主关系||'~'||户类型||'~'||党员) xl子 from 根据模板拆分工作表到工作薄 group by 户主姓名;

zpy2

zpy2 发表于 2022-5-14 17:41
select count(1) 户数 from 入户信息采集表生成主子格式 where 与户主关系='户主'; create temp table aa ...

操作步骤