Excel 个带有超链接的单元格
Excel cells with hyperlinks
我有一个 excel 文件,其中的单元格有一个短文本和一个与之关联的超链接。我想将数据导出到 csv 文件,但我还需要在最终文件中写入 url。我该怎么做?
谢谢
这里有一种使用宏的方法。
假设这是您的电子表格
现在,您想通过按 Alt + F8
创建一个宏
将它命名为 "HyperlinkExpander",像这样:
现在您应该在编辑器中,如果没有,请按 Alt + F11
。在 window 中粘贴以下代码:
Sub HyperlinkExpander()
Dim c As Range
For Each c In Intersect(Selection, ActiveSheet.UsedRange)
If c.Hyperlinks.Count > 0 Then
c.Value = c.Hyperlinks.Item(1).Address
End If
Next
End Sub
现在返回电子表格并突出显示要转换的所有单元格。突出显示不想转换的单元格并不重要,因为它不会更改没有链接的单元格。
突出显示它们后,返回编辑器 (Alt + F11
) 并按 F5
到 运行。现在它应该扩展您的超链接:
我有一个 excel 文件,其中的单元格有一个短文本和一个与之关联的超链接。我想将数据导出到 csv 文件,但我还需要在最终文件中写入 url。我该怎么做? 谢谢
这里有一种使用宏的方法。
假设这是您的电子表格
现在,您想通过按 Alt + F8
将它命名为 "HyperlinkExpander",像这样:
现在您应该在编辑器中,如果没有,请按 Alt + F11
。在 window 中粘贴以下代码:
Sub HyperlinkExpander()
Dim c As Range
For Each c In Intersect(Selection, ActiveSheet.UsedRange)
If c.Hyperlinks.Count > 0 Then
c.Value = c.Hyperlinks.Item(1).Address
End If
Next
End Sub
现在返回电子表格并突出显示要转换的所有单元格。突出显示不想转换的单元格并不重要,因为它不会更改没有链接的单元格。
突出显示它们后,返回编辑器 (Alt + F11
) 并按 F5
到 运行。现在它应该扩展您的超链接: