Ինչպե՞ս գտնել և փոխարինել թերթիկի ներդիրների անունները Excel- ում:
Excel- ում հեշտ է գտնել և փոխարինել արժեքները բջիջներում: Բայց կա՞ որևէ ձև Excel- ում թերթիկների անուններ գտնելու և փոխարինելու: Օրինակ, ինչպես ցույց է տրված սքրինշոթից ներքևում, դուք ունեք բազմաթիվ աշխատաթերթեր, որոնք թերթի անվան մեջ պարունակում են «KTE (Վաճառքներ) xxx», և այժմ անհրաժեշտ է բոլոր «KTE (վաճառքները)» փոխարինել «KTE» - ով բոլոր հարակից թերթիկների անուններում, ինչ դու կարող ես անել? Այս հոդվածը կներկայացնի VBA մեթոդը դրան հասնելու համար:
Գտեք և փոխարինեք թերթիկների ներդիրների անունները VBA կոդով
Գտեք և փոխարինեք թերթիկների ներդիրների անունները VBA կոդով
Խնդրում ենք դիմել VBA կոդից ներքև ՝ Excel- ում թերթիկների ներդիրների անունները գտնելու և փոխարինելու համար: Խնդրում եմ արեք հետևյալ կերպ.
1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Եվ հետո, պատճենեք ներքևում գտնվող VBA կոդը ծածկագրի պատուհանում:
VBA կոդ. Excel- ում գտնել և փոխարինել թերթիկների ներդիրների անունները
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 Sub3. Սեղմեք F5 ծածկագիրը գործելու համար:
4. Հետո ա Excel- ի համար նախատեսված գործիքներ երկխոսության պատուհանը հայտնվում է, խնդրում ենք մուտքագրել թերթի անունների բառերը, որոնք դուք կփոխարինեք և կտտացրեք այն OK կոճակ Տեսեք,
5. Երկրորդում Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, մուտքագրեք այն բառը, որով դուք կփոխարինեք և կտտացրեք այն OK կոճակը:
Այնուհետև թերթիկի ներդիրի բոլոր հարակից բառերը փոխարինվում են նշվածով, ինչպես ցույց է տրված ստորև նշված նկարը:
ՆշումՎերոհիշյալ կոդը մեծատառ է:
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս գտնել և փոխարինել բոլոր դատարկ բջիջները Excel- ում որոշակի համարով կամ տեքստով:
- Ինչպե՞ս փոխարինել ստորակետերը Excel- ի բջիջներում նոր տողերով (Alt + Enter):
- Ինչպե՞ս ստեղծել մակրո կոդ ՝ Excel- ում տեքստը գտնելու և փոխարինելու համար:
- Ինչպե՞ս արժեք գտնել Excel- ում ստորակետերով առանձնացված բջիջում:
- Ինչպե՞ս գտնել Excel- ում երկու սյունակների ցուցակների հատում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
