V2EX = way to explore
V2EX 是一个关于分享和探索的地方
现在注册
已注册用户请  登录
JCZ2MkKb5S8ZX9pq
V2EX  ›  Microsoft Office

excel 把整列文本转为超链接

  •  
  •   JCZ2MkKb5S8ZX9pq · 2019-10-15 01:28:09 +08:00 · 2003 次点击
    这是一个创建于 1627 天前的主题,其中的信息可能已经有所发展或是发生改变。
    • 把整列 www.abc.com ,转为超链接。
    • 不用新建列加 hyperlink,也不用一个个格子回车了。
    • 其实我记得好像有别的方法,但是想不起来了。
    • 搜到个 vba,改造了一下,建议单独存一个 xlsm 方便调用。
    • 真是写得我恶心死了,写和调试都很别扭,语法也不熟。
    • 分享一下,希望大家少走弯路。
    Sub add_link_to_column()
        ThisCell = Selection.Address(ColumnAbsolute:=False)
        ' MsgBox "Selected Cell:" & ThisCell
        Column = Split(ThisCell, "$", -1)(0)
        ' MsgBox "This Column:" & Column
        thisSheet = ActiveSheet.Name
        ' MsgBox "Sheet Name:" & thisSheet
        totalRow = Worksheets(thisSheet).Range("A65536").End(xlUp).Row
        ' MsgBox "Max Row:" & totalRow
        
        ' 从第二行开始
        i = 2
        Do While i <= totalRow
        ' 跳过空行
            If Range(Column & i).Cells.Text <> "" Then
                Range(Column & i).Select
                Worksheets(thisSheet).Hyperlinks.Add Anchor:=Selection, Address:=Range(Column & i).Cells.Text, _
                TextToDisplay:=Range(Column & i).Cells.Text
            End If
            i = i + 1
            Loop
    End Sub
    
    
    目前尚无回复
    关于   ·   帮助文档   ·   博客   ·   API   ·   FAQ   ·   我们的愿景   ·   实用小工具   ·   1144 人在线   最高记录 6543   ·     Select Language
    创意工作者们的社区
    World is powered by solitude
    VERSION: 3.9.8.5 · 23ms · UTC 18:32 · PVG 02:32 · LAX 11:32 · JFK 14:32
    Developed with CodeLauncher
    ♥ Do have faith in what you're doing.