Hoe een bestandsextensie uit een werkblad te extraheren?
Als u een kolom met bestandsnamen hebt die bestandsextensies bevatten, en u wilt nu alleen de bestandsextensies uit de cellen halen voor een bepaald doel. Het handmatig extraheren van elk ervan zal te tijdrovend zijn. Vandaag introduceer ik u aan enkele eenvoudige trucs om dit te voltooien.
Bestandsextensie uit werkblad extraheren met formule
Bestandsextensie uit werkblad extraheren met een door de gebruiker gedefinieerde functie
Bestandsextensie uit werkblad extraheren met formule
Om de bestandsextensies uit de cellen te extraheren, kan de volgende formule u helpen.
1. Voer deze formule in:
=REPLACE(RIGHT(A2,5),1,SEARCH(".",RIGHT(A2,5)),"") in een lege cel naast uw gegevens. Zie screenshot:
2. Sleep vervolgens de vulgreep over het bereik dat u deze formule wilt laten bevatten, en alle bestandsextensies zijn uit de cellen gehaald, zie screenshot:
Bestandsextensie uit werkblad extraheren met een door de gebruiker gedefinieerde functie
Een andere manier kan u ook helpen om deze taak te voltooien, door een door de gebruiker gedefinieerde functie te maken.
1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.
2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.
VBA-code: Bestandsextensies uit werkblad extraheren
Function FileExt(FileName As String) As String
'Update 20141111
On Error Resume Next
If InStrRev(FileName, ".") > 0 Then FileExt = Right(FileName, Len(FileName) - InStrRev(FileName, "."))
If Err <> 0 Then MsgBox Err.Description, vbCritical, "Kutools for Excel"
End Function
3. Sla vervolgens deze code op en sluit deze, ga terug naar het werkblad, en voer deze formule =FileExt(A2) in een lege cel naast uw gegevens in, zie screenshot:
4. Sleep vervolgens de vulgreep over het bereik dat u deze formule wilt laten bevatten, en alle bestandsextensies zijn uit kolom A gehaald, zie screenshot:
Tip: In de bovenstaande formules geeft A2 de cel aan waaruit u de extensie wilt extraheren.
Gerelateerde artikelen:
Hoe retourneer je een bestandsnaam zonder extensie naar een cel?
Hoe snel een bestandsnaam uit een volledig pad in Excel extraheren?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen