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

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

用宏吧。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宏即可。

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