Cum să găsiți și să înlocuiți numele filelor de foi în Excel?
Este ușor să găsiți și să înlocuiți valori în celule în Excel. Dar există vreo modalitate de a găsi și înlocui numele foilor în Excel? De exemplu, după cum se arată în imaginea de mai jos, aveți mai multe foi de lucru care conțin „KTE (Vânzări) xxx” în numele foii, iar acum trebuie să înlocuiți toate „KTE (Vânzări)” cu „KTE” în toate numele de foi asociate, ce poți să faci? Acest articol va introduce o metodă VBA pentru a o realiza.
Găsiți și înlocuiți numele filelor de foi cu codul VBA
Găsiți și înlocuiți numele filelor de foi cu codul VBA
Vă rugăm să aplicați mai jos codul VBA pentru a găsi și înlocui numele filelor de foi în Excel. Vă rugăm să faceți următoarele.
1. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Și apoi, copiați mai jos codul VBA în fereastra codului.
Cod VBA: găsiți și înlocuiți numele filelor de foi în 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 Sub
3. apasă pe F5 tasta pentru a rula codul.
4. Apoi a Kutools pentru Excel apare fereastra de dialog, introduceți cuvintele numelor foilor pe care le veți înlocui și faceți clic pe OK buton. Vedeți captura de ecran:
5. În al doilea Kutools pentru Excel caseta de dialog, introduceți cuvântul cu care îl veți înlocui, apoi faceți clic pe OK butonul.
Apoi, toate cuvintele corelate din numele filelor de foi sunt înlocuite cu unul specificat, așa cum se arată în imaginea de mai jos.
notițe: Codul de mai sus este sensibil la majuscule.
Legate de articole:
- Cum să găsiți și să înlocuiți toate celulele goale cu un anumit număr sau text în Excel?
- Cum se înlocuiesc virgulele cu linii noi (Alt + Enter) în celulele din Excel?
- Cum se creează un cod macro pentru a găsi și înlocui text în Excel?
- Cum se găsește valoarea într-o celulă cu listă separată prin virgule în Excel?
- Cum se găsește intersecția a două liste de coloane în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!