批量将表格数据对应建立超链接的宏命令。 Sub NewSht() Dim shtActive As Worksheet, sht As Worksheet Dim i As Long, strShtName As String On Error Resume Next Set shtActive Activesheet For i= 2 To shtActive. Cells(Rows.Count, 1).End(xlUp).Row strShtName shtActive. Cells(i, 1).Value Set sht Sh ...