怎么把表格里的文字批量转成链接

答案:2 悬赏:0 手机版

解决时间 2021-02-05 13:10

提问者网友：刺鸟
2021-02-04 16:38

怎么把表格里的文字批量转成链接

最佳答案

五星知识达人网友：天凉才是好个秋
2021-02-04 18:04

用宏吧。Alt+F11打开VB编辑器，粘贴如下代码：
Sub test()
Dim fso, fld, f1, maxRow As Long
maxRow = Sheets("Sheet1").[A65535].End(xlUp).Row
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(ThisWorkbook.Path)
For Each fsfile In fld.Files
Filename = Left(fsfile.Name, Len(fsfile.Name) - 4)
For Each no In Range("a1:a" & maxRow)
If Filename Like no & "*" Then
Cells(no.Row, 1).Hyperlinks.Add Anchor:=Cells(no.Row, 1), Address:=fsfile, TextToDisplay:=Cells(no.Row, 1).Value
End If
Next no
Next
End Sub
关闭后回到Excel界面，Alt+F8运行test宏即可。

全部回答

1楼网友：归鹤鸣
2021-02-04 19:34

直接复制excel表格，到word里面粘贴的话，word里面会有表格，可以在word里面选择把表格转换为文字。还可以在word里面粘贴的时候，使用【选择性粘贴】功能，选择粘贴文本，这样就没有表格、只有文字。右键菜单选择a的图标就是只粘贴文字，见下图：

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息