验证中...
语言: 其他
分类: 其他
最后更新于 2018-06-14 09:25
给EXCEL单元格增加链接
原始数据 复制代码
Sub 宏1()
'
' 宏1 宏
'
'
For i = 1 To 780
Sheets("Sheet1").Cells(i, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.boliall.com/Item/detail/id/" & Sheets("Sheet1").Cells(i, 1), TextToDisplay:=Sheets("Sheet1").Cells(i, 2).Value
Next
End Sub

评论列表( 0 )

你可以在登录后,发表评论

搜索帮助