欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

在Excel表格中按alt+F11 -> 選擇菜單中的 Insert -> 下拉菜單中的 Module -> 輸入以下內容,保存。

Sub mulu()
    On Error GoTo Tuichu
    Dim i As Integer
    Dim ShtCount As Integer
    Dim SelectionCell As Range
    
    ShtCount = Worksheets.Count
    If ShtCount = 0 Or ShtCount = 1 Then Exit Sub
    Application.ScreenUpdating = False
    For i = 1 To ShtCount
        If Sheets(i).Name = "目錄" Then
            Sheets("目錄").Move Before:=Sheets(1)
        End If
    Next i
    If Sheets(1).Name <> "目錄" Then
        ShtCount = ShtCount + 1
        Sheets(1).Select
        Sheets.Add
        Sheets(1).Name = "目錄"
    End If
    Sheets("目錄").Select
    Columns("B:B").Delete Shift:=xlToLeft
    Application.StatusBar = "正在生成目錄…………請等待！"
    For i = 2 To ShtCount
        ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目錄").Cells(i, 2), Address:="", SubAddress:= _
        "'" & Sheets(i).Name & "'!R1C1", TextToDisplay:=Sheets(i).Name
    Next
    Sheets("目錄").Select
    Columns("B:B").AutoFit
    Cells(1, 2) = "目錄"
    Set SelectionCell = Worksheets("目錄").Range("B1")
    With SelectionCell
        .HorizontalAlignment = xlDistributed
        .VerticalAlignment = xlCenter
        .AddIndent = True
        .Font.Bold = True
        .Interior.ColorIndex = 34
    End With
    Application.StatusBar = False
    Application.ScreenUpdating = True
Tuichu:
End Sub

按F5執行,回頭看Excel表格,目錄已經(jīng)插在最前面的sheet