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?