邮件合并按条件显示如何做？

globe2004

我手头有一文件，需要以户主名字为分组关键字，按户分页显示，详见附件。

请高手帮忙啊。
邮件合并问题.rar (3.55 KB, 下载次数: 21)

2011-4-7 09:50 上传

点击文件名下载附件

zbwxlxy

还是从整理数据源入手吧

smartsoft

Sub test()
    Dim Dic, arr, myRow&
    Set Dic = CreateObject("Scripting.dictionary")
   
    For i = 2 To Range("a" & Rows.Count).End(xlUp).Row
        If Not Dic.exists(Cells(i, 1).Value) Then
            Set Dic(Cells(i, 1).Value) = Range(Cells(i, 1), Cells(i, 5))
        Else
            Set Dic(Cells(i, 1).Value) = Union(Dic(Cells(i, 1).Value), Range(Cells(i, 1), Cells(i, 5)))
        End If
    Next
    arr = Dic.items
    For i = 1 To Dic.Count
        Sheets.Add
        Union(Sheets("Sheet1").Range("a1:e1"), arr(i - 1)).Copy
        ActiveSheet.Paste
        ActiveSheet.Name = Range("a2")
    Next
   
End Sub

globe2004

原帖由 smartsoft 于 2011-4-7 10:19 发表
Sub test()
    Dim Dic, arr, myRow&
    Set Dic = CreateObject("Scripting.dictionary")
   
    For i = 2 To Range("a" & Rows.Count).End(xlUp).Row
        If Not Dic.exists(Cells(i, 1).Value) The ...

VBA?太深奥了哇。我看不懂，没那水平哇。有用邮件合并函数做的方法哇？

zbwxlxy

原帖由 smartsoft 于 2011-4-7 10:19 发表
Sub test()
    Dim Dic, arr, myRow&
    Set Dic = CreateObject("Scripting.dictionary")
   
    For i = 2 To Range("a" & Rows.Count).End(xlUp).Row
        If Not Dic.exists(Cells(i, 1).Value) The ...

好像不是楼主想要的结果