Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako najti in zamenjati imena tabulatorjev v Excelu?

V celicah v Excelu je enostavno najti in zamenjati vrednosti. Ampak ali obstaja način, kako najti in zamenjati imena imen v Excelu? Na primer, kot je prikazano na sliki spodaj, imate v imeniku več delov, ki vsebujejo "KTE (Prodaja) xxx" in zdaj morate zamenjati vse "KTE (prodaja)" s "KTE" v vseh povezanih imenskih listih, kaj ali lahko? Ta članek bo uvedel metodo VBA za dosego tega cilja.

Poiščite in zamenjajte imena tabulatorjev z oznako VBA


Poiščite in zamenjajte imena tabulatorjev z oznako VBA


Prosimo, uporabite spodnjo kodo VBA, da najdete in zamenjate imena tabulatorjev v Excelu. Prosimo, naredite na naslednji način.

1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. In nato kopirajte spodnjo kodo VBA v okno kode.

VBA koda: poiščite in zamenjajte imena tabulatorjev v Excelu

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. Pritisnite F5 ključ za zagon kode.

4. Potem a Kutools za Excel pogovorno okno se pojavi, vnesite besede imen imen, ki jih boste zamenjali, in kliknite na OK gumb. Prikaz slike:

5. V drugem Kutools za Excel v pogovorno okno vnesite besedo, ki jo boste zamenjali, in kliknite OK gumb.

Nato so vse povezane besede v imeniku tabulatorskih listov nadomeščene z navedenim kot pod prikazom.

Opombe: Gornja koda je občutljiva na velike in male črke.


Sorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.