使合并的单元格都有内容

vvzzyy · 发表于 2005-12-19 14:33

不懂是怎么做的？？

lsc · 发表于 2005-12-19 14:47

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

lsc · 发表于 2005-12-19 14:58

收藏。。。谢谢gvntw版主。

gvntw · 发表于 2005-12-19 15:56

以下是引用[I]lsc[/I]在2005-12-19 14:47:53的发言：[BR]
gvntw版主啥时把头象换了，不如原来那个玫瑰好看了

我没换头像呀。

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

谢谢您发布此段代码.

wenfj · 发表于 2005-12-20 22:26

实用，谢谢斑竹提供。

jaluo · 发表于 2005-12-21 11:56

我没看明白是怎么实现的

两袖清风 · 发表于 2005-12-21 12:28

很好的技巧![em17]

yqg · 发表于 2005-12-21 12:31

非常有用，谢谢分享

zxztv · 发表于 2005-12-21 13:25

靠，太高深了，好多函数都没有学习过，惭愧

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

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