[已解决]求助：按B列的网址批量打开

清华 · 发表于 2012-12-11 10:34

本帖最后由清华于 2012-12-11 12:17 编辑

求助：按B列的网址批量打开

最佳答案

wcymiss

2012-12-11 14:28

Sub test()
Dim arr(), i As Integer
arr = Range("b1:b" & Cells(Rows.Count, 2).End(xlUp).Row).Value
For i = 1 To UBound(arr)
Shell "explorer " & arr(i, 1)
Next
End Sub

跳转到最佳答案楼层

wcymiss · 发表于 2012-12-11 14:28

这个最佳答案由 wcymiss 给出，感谢 wcymiss 的回答。

单击隐藏图章

Sub test()
Dim arr(), i As Integer
arr = Range("b1:b" & Cells(Rows.Count, 2).End(xlUp).Row).Value
For i = 1 To UBound(arr)
Shell "explorer " & arr(i, 1)
Next
End Sub

		自动登录	找回密码
密码			注册