求根据分页符跨页合并单元格的语句，期待高手

wanxiao317 · 发表于 2010-1-13 21:45

先说情况：公司要求每个月制作花名册，领导习惯了要求同一个部门的要合并单元格，例如行政部有10人，但是8个人在第一页，2个人在第二页，要求前八个人部门合并，后两个人部门合并。这样打印出来才不至于不显示部门和边框线了。
之所以想找一个VB语言就是因为人太多，部门新增加一个人就要从头到位重新设置一遍格式，太过复杂。也很烦
写一段语言，运行时弹出一个对话框，选择需要识别的列，然后开始自动合并相同的单元格，遇到分页符自动识别，在合并下一页的内容

希望我说明白了
同时上传附件供高手出招

cflood · 发表于 2010-1-13 22:43

有难度，我喜欢
Sub hb()
qsh = 3
Dim arr
ReDim arr(HPageBreaks.Count)
Application.DisplayAlerts = False
For i = 0 To UBound(arr) - 1
arr(i) = HPageBreaks(i + 1).Location.Row - 1
Next i
arr(i) = Range("B65536").End(xlUp).Row
K = 0
For i = 3 To Range("B65536").End(xlUp).Row
If Cells(i + 1, 2) <> Cells(qsh, 2) And i < arr(K) Then
      Range("B" & qsh & ":B" & i).Merge
      qsh = i + 1
ElseIf i = arr(K) Then
      Range("B" & qsh & ":B" & i).Merge
      qsh = i + 1
      K = K + 1
End If
Next i
Application.DisplayAlerts = True
End Sub

wanxiao317 · 发表于 2010-1-13 22:53

没想到cflood
喜欢这一口啊
要难度的我继续上，哈哈

wanxiao317 · 发表于 2010-1-13 22:59

很遗憾的是运行时出错了运行到redim的时候

cflood · 发表于 2010-1-13 23:31

看附件…………

wanxiao317 · 发表于 2010-1-15 09:04

牛人，佩服的五体投地
到底有没有你不会的啊？

wanxiao317 · 发表于 2010-1-15 09:06

cflood 加大难度了，请接招

哈哈

玩笑，主要还是请你您帮忙解决问题

在实际应用过程中，我执行宏运行了合并单元格之后，如果我在其中一个加了一行，那么分页符就被打乱了，原合并单元格不再满足要求了，所以需要再增加一部分语句

重新合并单元格

如何实现了？

[ 本帖最后由 wanxiao317 于 2010-1-15 09:08 编辑 ]

wanxiao317 · 发表于 2010-1-18 16:30

高手再来看啊

cflood · 发表于 2010-1-18 16:59

刚好看的一个拆分单元格的http://club.excelhome.net/viewth ... p;page=1#pid3477691
先拆分，在执行一次合并

wanxiao317 · 发表于 2010-3-28 23:17

设置按钮就可以顺利执行
原语句放到模块就没有办法执行了
模块8

怎么回事？

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

[求助] 求根据分页符跨页合并单元格的语句，期待高手

出错了，盼高手解决