如何让excel里http开头的东西显示为超链接？

czr0373 · 发表于 2014-5-12 16:10

如何让excel里http开头的东西显示为超链接？
因为太多，一个一个弄很累人的，谢谢！！

百度不到去谷歌 · 发表于 2014-5-12 16:19

批量超链接用下面代码选择你要加超链接的数据区 alt+f11 插入模块粘贴下面代码 F5运行即可

Public Sub 批量超链接() '将选定的单元格按它记录的地址创建超链接
Dim rng As Range
For Each rng In Selection
ActiveSheet.Hyperlinks.Add rng, rng.Value
Next
End Sub

复制代码

czr0373 · 发表于 2014-5-12 16:28

百度不到去谷歌发表于 2014-5-12 16:19
批量超链接用下面代码选择你要加超链接的数据区 alt+f11 插入模块粘贴下面代码 F5运行即可

倒是实现了，但把不是HTTP开头的也超链接了？

百度不到去谷歌 · 发表于 2014-5-12 16:39

你混合的啊加个判断

Public Sub 批量超链接() '将选定的单元格按它记录的地址创建超链接
Dim rng As Range
For Each rng In Selection
if rng like "http*" then ActiveSheet.Hyperlinks.Add rng, rng.Value
Next
End Sub

复制代码

czr0373 · 发表于 2014-5-12 16:45

百度不到去谷歌发表于 2014-5-12 16:39
你混合的啊加个判断

我还是举个例子比较好，解释下，就是自HTTP开始到其结尾，下面红色字段，
旅游生活 - 古怪食物：美国第三集：http://yun.baidu.com/pcloud/album/file?album_id=7973378694309708551&uk=1178233595&fsid=93466924728933
芭蕾舞剧
http://yunpan.cn/QpCwMzEjNIYex （访问密码：ff91）

百度不到去谷歌 · 发表于 2014-5-12 16:48

excel加超链接是以单元格为单位的你这个是要提取出http再加超链接了你给个文件和示例吧这样看不出来你是一个格子里还是分开的
也不知道你要的最后结果是要分开还是一个格子

czr0373 · 发表于 2014-5-12 16:52

百度不到去谷歌发表于 2014-5-12 16:48
excel加超链接是以单元格为单位的你这个是要提取出http再加超链接了你给个文件和示例吧这样看不出来你是 ...

这样我会了，那我先把HTTP开头的字段提取出来，，然后再运行宏吧，非常感谢！！！

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