统计有内容单元格（不含公式格）+分户批量打印

鎈钚哆姺泩

有这样一张表“全部人员明细表”，如（图1）现在要按“医疗证号或户主姓名”依次打印。
打印格式如下图。
（图2） （图3）
需要麻烦大虾的是：1、右下角总人数和实际不符（看黄线圈住的部分）因为C2：C8都包含公式，简单尝试用了COUNTA是不行的。
2、因为最后要按照医疗编号做成医疗卡，我现在的方法是。在（图3）红圈位置逐一选择医疗编号，然后按打印键。但是，医疗编号一直到了600+，这么点效率实在太低。想请大虾们，教个一劳永逸的方法。让它自己从...001打印到...600.
后附文件 人数总计、按编号批量打印.zip (6.35 KB, 下载次数: 142)

2012-11-4 00:28 上传

点击文件名下载附件

我是水和

楼主  你的第一个问题  是公式有误

=MAX(IF(C2:C8="",1,ROW(C2:C8)))

row(C2:C8)返回的值是{2;3;4;5;6;7;8}

而如果你用这个公式来计数的话  需要是{1;2;3;4;5;6;7}

改成=MAX(IF(C2:C8="",1,ROW(C1:C7)))
或者=MAX(IF(C2:C8="",1,ROW(1:7)))  就可以解决


第二个问题 以我的理解  用vba操作会比较容易  楼主可以考虑去vba问答区发帖求助

huguifang

可以用邮件合并实现

鎈钚哆姺泩

我是水和 发表于 2012-11-4 01:09
楼主  你的第一个问题  是公式有误

=MAX(IF(C2:C8="",1,ROW(C2:C8)))

是的。VBA区的大虾，已经帮我解决了。
Sub Macro1()

    Sheets("单户打印页表").Select
    For n = 2 To Sheets("户编号去重复数据精简表").[a65536].End(xlUp).Row
        [a2] = Sheets("户编号去重复数据精简表").Cells(n, 1)
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next
End Sub