Data analysis----The use of VBA

1.VBA Common Small Code 001 One-click to create a worksheet directory with hyperlinks

Sub ml ()    Dim sht as Worksheet, I&, shtname$    Columns (1). ClearContents   ' empty column A data    cells (1, 1) = "Directory"   ' first cell write String ' directory '    i = 1   ' Set the initial value of I to 1.       for every sht in worksheets ' loop, each sheet of the current workbook        shtname = sht. Name if        shtname <> activesheet.name       Then ' if the name of the Sht is not the name of the current sheet then start creating hyperlinks in the current worksheet            i = i + 1           ' accumulate I           ActiveSheet.Hyperlinks.Add Anchor:=cells (i, 1), address:= "", subaddress:= "'" & Shtname & "'!a1", Texttodisplay:=shtname           ' built-in hyperlink        End If    nextend Sub

　　

Data analysis----The use of VBA