Excel VBA - 引用超链接的单元格答案

【问题标题】：Excel VBA - Referencing a cell which is hyperlinkedExcel VBA - 引用超链接的单元格
【发布时间】：2016-08-23 01:21:32
【问题描述】：

让我描述一下我的情况，

基本上，有一个名为“test”的单元格包含名为 Click Me 的文本，其中包含一个超链接。我想将此单元格及其超链接引用到另一个单元格中。

例如：- 单元标识符名称：测试名称：点我超链接：www.google.com

在这里，我想将 Test 及其超链接引用到另一个单元格中 P.S =Test 只给出 Cell Identifier 的值（点击我）但我想要“点击我的超链接”。

这可能吗？

提前致谢

Link

【问题讨论】：

据我了解的问题，这应该是可能的。尽管如此，这个网站如果不是免费的代码编写服务的话。然而，我们渴望用他们的代码帮助其他程序员（和有志者）。请阅读How do I Ask a Good Question 的帮助主题，以及如何创建Minimal, Complete, and Verifiable example。之后，请使用您迄今为止编写的 VBA 代码更新您的问题，以完成您希望完成的任务。
谢谢。我是这个社区的新手。让我快速浏览一下这些链接，以使其成为更好的调查问卷。
你能解释一下吗？我无法获得上下文。
@RehbanKhatri 请查看此链接，它可以让您深入了解问题i.stack.imgur.com/kBGt1.jpg
那么您是希望使用 vba 引用单元格还是仅使用公式？

标签： vba excel hyperlink

【解决方案1】：

试试这个：

Sub CopyHyperlinks()
    Dim Source As Range
    Dim Destination As Range
    Dim SearchRange As Range

    Set SearchRange = Sheets(1).Range("A1:A5") '---> set your range here
    Set Source = SearchRange(1, 1)
    Set Destination = Sheets(1).Range("B1") '---> range will be copied here

    For Each Source In SearchRange
        If Source.Hyperlinks.Count > 0 Then
            Destination.Hyperlinks.Add Destination, _
                Source.Hyperlinks(1).Address, , , Source.Text
        End If
        Set Destination = Destination(2, 1)
    Next Source
End Sub

从here得到这个。

【讨论】：