개발 노트, Excel VBA.

1. 모든 Sheet를 가져와 현재 셀에 나열합니다.

 
Sub GetAllSheets()
    For i = 1 To Sheets.Count
            ActiveCell.Offset(1, 0).Range("A1").Select
           ActiveCell.Value = Sheets(i).Name
    Next i
End Sub

2. 위에 링크를 추가합니다.

Sub GetAllSheets()
    For i = 1 To Sheets.Count
            ActiveCell.Offset(1, 0).Range("A1").Select
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Sheets(i).Name + "!A1", TextToDisplay:=Sheets(i).Name
          
    Next i
End Sub

삼.