验证中...
码云 IDEA 插件最新版本发布,支持 Pull Request
语言: 其他
分类: 其他
最后更新于 2018-12-09 10:12
给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 )

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

搜索帮助