[分享]連接選定單元格中的內容

白海豚 · 发表于 2007-7-19 14:05

本帖最后由爱疯于 2012-6-7 22:12 编辑 [hide]Function LinkCell()   Dim sReg As Range, Nx As Range   Dim Tex   Set sReg = Selection   For Each Nx In sReg       Tex = Nx.Value       If Tex <> vbNullString Then          If LinkCell = vbNullString Then             LinkCell = Tex          Else             LinkCell = LinkCell & "/" & Tex          End If       End If   Next   Cells(sReg.Row, sReg.Column) = LinkCell End Function[/hide
] 
[此贴子已经被作者于2007-7-25 10:51:49编辑过]

xiongguihua · 发表于 2007-7-19 14:06

VBA不懂

白海豚 · 发表于 2007-7-19 14:06

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2007-7-25 10:52:07编辑过]

哎哟-醉虾 · 发表于 2007-7-19 14:11

楼主兄弟如果能附带说明就更好了。。。

wangsanmao · 发表于 2007-8-18 16:36

look yi  look

mxg825 · 发表于 2007-8-18 16:42

不懂也要看

cxq6911 · 发表于 2007-8-18 16:43

dddd

andysky · 发表于 2007-8-18 21:30

提示: 作者被禁止或删除内容自动屏蔽

海蓝蓝 · 发表于 2007-8-18 21:34

游客，如果您要查看本帖隐藏内容请回复

白海豚 · 发表于 2007-8-18 21:40

看看~！？andysky老师。。真的是，，呵呵

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

andysky andysky 当前离线积分 0 IP卡狗仔卡	发表于 2007-8-18 21:30 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
andysky andysky 当前离线积分 0 IP卡狗仔卡
	回复使用道具举报显身卡

[资料] [分享]連接選定單元格中的內容