Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
带超链接的Excel单元格_Excel_Hyperlink_Ms Office - Fatal编程技术网

带超链接的Excel单元格

带超链接的Excel单元格,excel,hyperlink,ms-office,Excel,Hyperlink,Ms Office,我有一个excel文件,其中单元格有一个短文本和一个与其关联的超链接。我想将数据导出到csv文件,但我需要在最终文件中也写入url。我怎么做? 谢谢这里有一种使用宏的方法 假设这是您的电子表格 现在,您想通过按Alt+F8 将其命名为“HyperlinkExpander”,如下所示: 现在您应该在编辑器中,如果没有,请按Alt+F11。在窗口中,粘贴以下代码: Sub HyperlinkExpander() Dim c As Range For Each c In Intersect(Se

我有一个excel文件,其中单元格有一个短文本和一个与其关联的超链接。我想将数据导出到csv文件,但我需要在最终文件中也写入url。我怎么做?
谢谢

这里有一种使用宏的方法

假设这是您的电子表格

现在,您想通过按
Alt+F8

将其命名为“HyperlinkExpander”,如下所示:

现在您应该在编辑器中,如果没有,请按
Alt+F11
。在窗口中,粘贴以下代码:

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
运行。现在,它应该扩展您的超链接:


你想在两个项目之间用逗号吗?^如果我理解正确,当前文件只有一个项目(短文本),他希望最终产品只有URL是的,就是@YangLi。Thanks@Miguel好的,我会看看我是否能写一个简短的宏来完成这项工作。好的,谢谢。我以为只要点击一下这里和那里就可以解决这个问题。