练习4：批量合并不同大小的单元格

stop10000 · 发表于 2011-4-16 22:26

学习！！！！！！！！！！！！！！

wbzxz · 发表于 2011-4-17 21:29

真是神奇啊。

hehe4321 · 发表于 2011-5-14 16:30

今天刚好遇到..学习学习!!

cyt381828864 · 发表于 2011-5-14 16:40

看看呢、、、

qqizhibin · 发表于 2011-5-12 11:01

学习……………………

深蓝色的海洋 · 发表于 2011-5-25 18:19

看看

ksldy888 · 发表于 2011-5-25 21:29

{:011:}{:011:}{:011:}

cblyyg · 发表于 2011-5-20 11:11

学习了，除了分类汇总和公式外有别的方法么？

岁寒三友 · 发表于 2011-5-21 11:04

看看回复可见回贴！

岁寒三友 · 发表于 2011-5-21 11:12

用vba凑合一个。
Public Sub 合并单元格() '合并单元格并将合并的单元格设置序号
Dim j, arr(), brr()
Application.DisplayAlerts = False
i = [a65536].End(3).Row
arr = Range("a2:b" & i): n = 0
For j = 1 To UBound(arr) - 1
100
If arr(j, 1) = arr(j + 1, 1) Then
n = n + 1: arr(j, 2) = n: arr(j + 1, 2) = n + 1
Range(Cells(j + 1, 1), Cells(j + 2, 1)).Merge
Else
j = j + 1: n = 0: GoTo 100
End If
Next j
Range("b2:b" & i) = Application.Index(arr, 0, 2)
Application.DisplayAlerts = True
End Sub

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