能否根据 A 列相同的数值在 B 列中自动生成合并格

2716633 · 发表于 2011-3-10 12:45

能否根据 A 列相同的数值在 B 列中自动生成合并格

谢谢！！

zbwxlxy · 发表于 2011-3-10 12:55

自动生成合并单元格好像不可能，除非用VBA

[ 本帖最后由 zbwxlxy 于 2011-3-10 12:56 编辑 ]

2716633 · 发表于 2011-3-10 13:12

不知道公式有没有呢？好像没有！
头痛

交叉点 · 发表于 2011-3-10 13:23

单元格公式只负责返回单元格的值，不负责单元格的其他操作。

wj2368 · 发表于 2011-3-10 13:27

Sub A列单元合并居中()
Application.DisplayAlerts = False
Range("a1:a" & Range("B65536").End(xlUp).Row).Sort key1:=Range("a1"), Header:=xlYes 'B列排序
k = 1
For i = 1 To Range("a65536").End(xlUp).Row
If Cells(i, 1) <> Cells(i + 1, 1) Then ' 条件判断
Range(Cells(k, 2), Cells(i, 2)).Merge ' B列相同合并
k = i + 1
End If
Next i
Application.DisplayAlerts = True
End Sub

复制代码

winnie_xyh · 发表于 2011-3-10 13:38

高手啊！学习了！语句简洁！

2716633 · 发表于 2011-3-10 15:21

在合并后的每个可以显示前面的数吗？

2716633 · 发表于 2011-3-10 16:01

可以了
复制粘贴格式就可以了

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

[求助] 能否根据 A 列相同的数值在 B 列中自动生成合并格