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.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
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 för dig varje dag!