Option ExplicitPublic Sub PiLiangChaoLianJie()'01----批量超鏈接，將一個工作表中的列作為超鏈接添加到另外一個工作表中' 宏由 keke 錄制，時間: 2019/9/25'Dim S1 As String, S2 As StringDim SHEET_NAME As StringDim LINK_CELL As String, Link_S As String, LINK_Name As StringDim I As IntegerDim LINK_text As StringDim Str_i%, End_i%Str_i = InputBox("請輸入起始行", , 1)End_i = InputBox("請輸入結束行", , 50)SHEET_NAME = InputBox("請輸入需要添加超鏈接的【工作表】名字", , "sheet1")S2 = InputBox("請輸入需要創建連接的【列】名", , "A")LINK_Name = InputBox("請輸入鏈接到的【工作表】的名字", , "sheet2")Link_S = InputBox("請輸入鏈接到工作表所在的【列】名", , "A")For I = Str_i To End_i    LINK_CELL = LINK_Name & "!" & Link_S & I    S1 = S2 & I    Range(S1).Select    Sheets(SHEET_NAME).Select    If Worksheets.Application.Range(LINK_CELL).Value = "" Then    LINK_text = LINK_CELL    Else    LINK_text = Worksheets.Application.Range(LINK_CELL).Value    End If    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=LINK_CELL, TextToDisplay:=LINK_textNext IEnd SubPrivate Sub CommandButton1_Click()PiLiangChaoLianJieEnd Sub