Hogyan lehet megkeresni és lecserélni a lapfülek nevét az Excelben?
Könnyű megtalálni és kicserélni az értékeket az Excel celláiban. De lehet-e valamilyen módon megkeresni és kicserélni a lapneveket az Excelben? Például, amint az az alábbi képernyőképen látható, több munkalapja van, amelyek a „KTE (Értékesítés) xxx” szót tartalmazzák a lap nevében, és most az összes „KTE (Értékesítés)” szót „KTE” -re kell cserélnie az összes kapcsolódó lapnévben, mi meg tudod csinálni? Ez a cikk egy VBA módszert mutat be annak elérésére.
Keresse meg és cserélje le a lapfülek nevét VBA kóddal
Keresse meg és cserélje le a lapfülek nevét VBA kóddal
Kérjük, alkalmazza az alábbi VBA-kódot az Excel lapnevek megkereséséhez és cseréjéhez. Kérjük, tegye a következőket.
1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja a VBA kód alatt a kód ablakba.
VBA-kód: keresse meg és cserélje le a lapfülek nevét az Excelben
Sub Find_replace_sheet_name()
'Update by Extendoffice 2018/5/24
Dim xNum As Long
Dim xRepName As String
Dim xNewName As String
Dim xSheetName As String
Dim xSheet As Worksheet
xRepName = Application.InputBox("Please type in the word you will replace:", "Kutools for Excel", , , , , , 2)
xNewName = Application.InputBox("Please type in the word you will replace with:", "Kutools for Excel", , , , , , 2)
If xRepName = "false" Or xNewName = "false" Then Exit Sub
On Error GoTo ExitLab
For Each xSheet In ActiveWorkbook.Sheets
xSheetName = xSheet.Name
xNum = InStr(1, xSheetName, xRepName)
If xNum > 0 Then
xSheet.Name = Replace(xSheetName, xRepName, xNewName)
End If
ExitLab:
Next
End Sub
3. megnyomni a F5 gombot a kód futtatásához.
4. Ezután a Kutools az Excel számára megjelenik a párbeszédpanel, kérjük, írja be a cserélni kívánt lapnevek szavát, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
5. A másodikban Kutools az Excel számára párbeszédpanelen írja be a helyettesíteni kívánt szót, majd kattintson a gombra OK gombot.
Ezután az összes kapcsolódó szót a lapfül nevében a megadottal helyettesítjük, az alábbi képernyőképen.
Megjegyzések: A fenti kód megkülönbözteti a kis- és nagybetűket.
Kapcsolódó cikkek:
- Hogyan lehet megtalálni és helyettesíteni az összes üres cellát bizonyos számmal vagy szöveggel az Excelben?
- Hogyan helyettesítsük a vesszőket új sorokkal (Alt + Enter) az Excel celláiban?
- Hogyan készítsünk makrókódot a szöveg megkereséséhez és cseréjéhez az Excelben?
- Hogyan lehet értéket találni egy cellában vesszővel elválasztott listával az Excelben?
- Hogyan lehet megtalálni két oszloplista metszéspontját az Excelben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!