Jak extrahovat příponu souboru z listu?
Pokud máte sloupec s názvy souborů, který obsahuje přípony souborů, a nyní byste z nějakého důvodu chtěli z buněk získat pouze přípony souborů. Chcete-li je extrahovat jeden po druhém ručně, bude příliš únavné, dnes vám představím několik snadných triků, jak to dokončit.
Extrahujte příponu souboru z listu se vzorcem
Extrahujte příponu souboru z listu pomocí funkce definované uživatelem
Extrahujte příponu souboru z listu se vzorcem
Chcete-li extrahovat přípony souborů z buněk, můžete si udělat laskavost pomocí následujícího vzorce.
1. Zadejte tento vzorec:
= REPLACE (RIGHT (A2,5), 1, SEARCH (".", RIGHT (A2,5)), "") do prázdné buňky kromě vašich dat. Viz screenshot:
2. Poté přetáhněte popisovač výplně do rozsahu, který chcete tento vzorec obsahovat, a všechny přípony souborů byly extrahovány z buněk, viz screenshot:
Extrahujte příponu souboru z listu pomocí funkce definované uživatelem
Jiný způsob vám také může pomoci dokončit tuto úlohu a vytvořit funkci definovanou uživatelem.
1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Extrahujte přípony souborů z listu
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. Poté tento kód uložte a zavřete, vraťte se do listu a zadejte tento vzorec = FileExt (A2) do prázdné buňky vedle vašich dat, viz screenshot:
4. A pak přetáhněte popisovač výplně do rozsahu, který chcete tento vzorec obsahovat, a všechny přípony souborů byly extrahovány ze sloupce A, viz screenshot:
Tip: Ve výše uvedených vzorcích označuje A2 buňku, ze které chcete extrahovat příponu.
Související články:
Jak vrátit název souboru bez přípony do buňky?
Jak rychle extrahovat název souboru z celé cesty v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
