Question

求一个vba小程序

如下图叙述内容，谢谢

Answer 1

Sub 宏1()
 Dim Rng As Range, Sh As Worksheet, Wb As Workbook, i&
 Set Sh = Worksheets("目录")
 Sh.Move Before:=Worksheets(1)
 For i = 2 To Sh.Cells(Rows.Count, 1).End(xlUp).Row
  Sh.Cells(i, 1).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
  ActiveSheet.Move After:=Worksheets(Worksheets.Count)
 Next i
End Sub

只做了A列的，i循环是升序还是降序自己根据效果考虑更改。

Answer 2

可以，啥时候要的?

追答