☰

将超链接从原始列表复制到搜索索引列表

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba
将超链接从原始列表复制到搜索索引列表

我已经从带有超链接（使用“插入超链接”创建）的产品列表中创建了搜索索引（使用公式）。但是，创建搜索索引时没有超链接。

两个列表都在同一张工作表上。

我想要一个宏，确保在创建搜索索引时超链接能够传递。我还希望在执行搜索时，正确的超链接能够保留在产品中（目前，如果我手动将超链接放入搜索索引中，当我使用搜索时，超链接会保留在单元格中，而不是与它们相关的产品中）。

另外，我在另一个帖子中看到一个宏，它可以阻止超链接样式中的字体自动格式化。如果可以合并这个宏就好了。

这是我尝试过的宏：

Sub CopyHyperlinks()
Dim Source As Range
Dim Destination As Range
Dim SearchRange As Range
Set SearchRange=Sheets(1).Range("E4:E68")
Set Source=SearchRange(1,1)
Set Destination=Sheets(1).Range("B4")
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

我在互联网上搜索后找到了这个宏，并尝试将其更改为适合我的需求。当我使用它时，它似乎复制了超链接（字体自动格式化出现在文本上），但超链接尚未完全复制）

相关内容