注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Oh! I see you!

Hi! ppmm~~

 
 
 

日志

 
 

Excel批量加超链接  

2009-12-04 02:17:37|  分类: Excel |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
本文链接:http://oicu.cc.blog.163.com/blog/static/123039471200911421737902/

发信人: qq (小捕快), 信区: WindowsTech
标  题: excel 特定列加.eml文件超链接问题
发信站: 水木社区 (Wed Dec  2 11:47:14 2009), 站内

excel文档
其中一列单元格的内容是.eml文件名字
所有.eml文件都在一个文件夹中
如何把这一列所有的.eml文件名
5千条数据
批量加上超链接

假设数据位于A列,文件夹路径为D:\My Documents\
注意路径后面的一个斜杠\不能漏掉。


辅助列函数法:

B1中输入
=HYPERLINK("D:\My Documents\"&A1,A1)
向下填充


vba法不用加辅助列:

Sub Macro1()
    For i = 1 To 5000
        strValue = CStr(Range("A" & i))
        ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), _
            Address:="D:\My Documents\" & strValue, TextToDisplay:=strValue
    Next
End Sub



提取超链接内容的自定义函数(转自ExcelHome):

Option Explicit

Function GetName(HyCell)
    Application.Volatile True
    GetName = HyCell.Hyperlinks(1).Name
End Function

Function GetAddress(HyCell)
    Application.Volatile True
    With HyCell.Hyperlinks(1)
        GetAddress = IIf(.Address = "", .SubAddress, .Address)
    End With
End Function

  评论这张
 
阅读(787)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018