使合并的单元格都有内容

TMOY · 发表于 2005-12-19 10:47

谢谢. 好! 实用! 解渴!...

TMOY · 发表于 2005-12-19 14:17

9楼,合并之后做VLOOKUP或其他函数时会有问题, 需要插入辅助列把整列填满(我是这样做的)再来做公式. 楼主的方法应该可以不需要辅助列而兼顾:美观+实用的功能.

另我带出个问题, 用什么代码可以实现自动合并单元格. 比如一列中隔三五空白有个数/文字, 要让有数/文字找到下面空白格然后合并?

zl5v8yYB.rar (2.24 KB, 下载次数: 864)

[此贴子已经被作者于2005-12-19 14:27:26编辑过]

TMOY · 发表于 2005-12-20 15:29

以下是引用[I]lsc[/I]在2005-12-19 14:47:53的发言：[BR]
gvntw版主啥时把头象换了，不如原来那个玫瑰好看了？
回复楼上：
Sub merge()
For i = 1 To 13
For j = i + 1 To 13
If Range("a" & j) = "" Then
Range("a" & i & ":a" & j).merge
Else
Exit For
End If
Next j
Next i
End Sub

谢谢您发布此段代码.

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

[分享] 使合并的单元格都有内容