EXCEL一键打开多个网址的宏

批量打开链接.xls

*适用于win10以后，安装了edge的机器

• 打开excel

• 快捷键ctrl+F11打开窗口中点插入-模块

• 编辑区输入
  

Sub 打开网页1()

For Each A In Selection

Shell ("C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe -url " & A.Value)

Next

End Sub

• 然后x掉，返回excel

  
  

给宏一个快捷键

• 选中要打开的链接，按设定的快捷键