一键生成多个工作表并建立超连接

wulangzi650

Sub 建立货号表()

Dim i As Integer
Dim introwscount As Integer
Dim n As Integer
Application.DisplayAlerts = False
For i = 10 To Sheets.Count
     Sheets(Sheets.Count).Delete
Next

intRowsCount = Range("A" & Rows.Count).End(xlUp).Row
    For i = 9 To introwscount
        n = Sheets.Count
        Sheets.Add after:=Sheets(n)
        ActiveSheet.Name = Sheets(1).Range("A" & i)
      Next
Sheets(1).Select
Sheets(1).Hyperlinks.Add Cells(i, 1), "", sht.Name & "!a1", "", ""
End Sub

老师位谁能帮我看一下。我这个一运行就提示语法错误。。。

liyh67

Sub 建立货号表1()

Dim i As Integer
Dim introwscount As Integer
Dim n As Integer
Application.DisplayAlerts = False
For i = 10 To Sheets.Count
     Sheets(Sheets.Count).Delete
Next

introwscount = Range("A" & Rows.Count).End(xlUp).Row
    For i = 9 To introwscount
        n = Sheets.Count
        Sheets.Add after:=Sheets(n)
        ActiveSheet.Name = Sheets(1).Range("A" & i)
        Sheets(1).Select
        Sheets(1).Hyperlinks.Add Cells(i, 1), "", Range("A" & i) & "!a1", "", Range("A" & i).Text
    Next
End Sub