Hur extraherar jag snabbt filnamn från hela sökvägen i Excel?

Om du antar att du har ett kalkylblad som innehåller en lista över filvägar, vill du nu extrahera bara filnamnet (den högra delen av det slutliga snedstrecket) från varje sökväg som följande skärmdumpar visas. Finns det några snabba knep för att hantera denna uppgift?

Extrahera filnamn från hela sökvägen med formel i Excel
Extrahera filnamn från hela sökvägen med användardefinierad funktion
Extrahera filnamn från hela sökvägen med VBA-kod

Extrahera filnamn från hela sökvägen med formel i Excel

I Excel kan du använda formeln nedan för att snabbt extrahera endast filnamn från hela sökvägen.

Välj en tom cell, ange formeln nedan i den och tryck sedan på ange nyckel.

=MID(A1,FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))+1,LEN(A1))

tips: A1 är cellen som du vill extrahera filnamnet från) och tryck på Enter-knappen och dra sedan fyllningshandtaget för att fylla det önskade området. Därefter extraheras filnamnet från varje cell.

Extrahera filnamn från hela sökvägen med användardefinierad funktion

Med följande användardefinierade funktion kan du få filnamnet enkelt och snabbt.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

Function FunctionGetFileName(FullPath As String) As String
'Update 20140210
Dim splitList As Variant
splitList = VBA.Split(FullPath, "\")
FunctionGetFileName = splitList(UBound(splitList, 1))
End Function

3. Tryck andra + Q för att stänga Microsoft Visual Basic för applikationer och gå tillbaka till kalkylbladet. I en tom cell, till exempel B1, anger du formeln nedan i den och trycker på ange nyckel.

=FunctionGetFileName(A1)

Välj sedan cell B1 igen, dra fyllningshandtaget till det intervall som du vill använda denna formel, och alla filnamn har extraherats från hela sökvägarna enligt följande resultat:

Extrahera filnamn från hela sökvägen med VBA-kod

Förutom den användardefinierade funktionen kan en VBA-kod också hjälpa dig att extrahera filnamnen. Gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationsfönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

Sub GetFileName()
'Update 20140210
Dim Rng As Range
Dim WorkRng As Range
Dim splitList As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    splitList = VBA.Split(Rng.Value, "\")
    Rng.Value = splitList(UBound(splitList, 1))
Next
End Sub

3. Tryck sedan på F5 nyckel för att köra den här koden och välj det intervall som du vill extrahera filnamnet från, se skärmdump:

4. Och klicka sedan på OKhar filnamnen extraherats från urvalet enligt följande:

Anmärkningar: Med denna VBA-kod kommer originaldata att förstöras, så du bör kopiera en innan du använder den här koden.

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2019 och 365. Stöder alla språk. Enkel distribution i ditt företag eller organisation. Fullständiga funktioner 30-dagars gratis provperiod. 60-dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

• Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
• Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
• Ökar din produktivitet med 50% och minskar hundratals musklick åt dig varje dag!

Läs mer... Gratis nedladdning... Köp...