在EXCEL中如何搜索名称列表？

发布网友发布时间：2022-02-25 10:42

共2个回答

热心网友时间：2022-02-25 12:11

最快的办法是用一个宏。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "Main"
Range("A1") = "Sheet"
Dim i, j As Integer
For i = 2 To Sheets.Count
Range("A" & i) = Sheets(i).Name
Range("A" & i).Hyperlinks.Add Range("A" & i), "#" & Range("A" & i).Value & "!A1"
Next i
j = i - 1
Range("A2:A" & j).Sort Range("A2"), xlAscending
For i = 2 To j
Sheets(Sheets("Main").Range("A" & i).Value).Move after:=Sheets(j)
Next i
End Sub

在此界面直接按F5运行此宏，完胜工作表的排序，其最前面有个叫"Main"的工作表，第一列是所有工作表的排序，点任意一个名字可以跳到该工作表。

热心网友时间：2022-02-25 13:29

=MID(CELL("FILENAME",A20),SEARCH("]",CELL("FILENAME",A19),1)+1,9)