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

globe2004 · 发表于 2011-4-7 09:50

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

请高手帮忙啊。

邮件合并问题.rar (3.55 KB, 下载次数: 21)

zbwxlxy · 发表于 2011-4-7 10:06

还是从整理数据源入手吧

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) 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 · 发表于 2011-4-7 14:40

原帖由 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 · 发表于 2011-4-7 16:14

原帖由 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 ...

好像不是楼主想要的结果

		自动登录	找回密码
密码			免费注册

[求助] 邮件合并按条件显示如何做？