For i = 1 To 3
Windows("新增 Microsoft Excel 工作表.xlsm").Activate
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"新增 Microsoft Excel 工作表 (2).xlsx", SubAddress:=Worksheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
Next i