Как извлечь расширение файла из листа?
Если у вас есть столбец с именами файлов, включающими расширения, и вам нужно извлечь только расширения для определённых целей, делать это вручную — по одному файлу — будет слишком утомительно. Сегодня я покажу вам несколько простых способов быстро справиться с этой задачей.
Извлечение расширения файла из листа с помощью формулы
Извлечение расширения файла из листа с помощью пользовательской функции
Извлечение расширения файла из листа с помощью формулы
Чтобы извлечь расширения файлов из ячеек, воспользуйтесь следующей формулой.
1. Введите эту формулу:
=REPLACE(RIGHT(A2,5),1,SEARCH(".",RIGHT(A2,5)),«») — вставьте эту формулу в пустую ячейку рядом с вашими данными. См. снимок экрана:
2. Затем перетащите маркер заполнения на диапазон, куда нужно вставить формулу, — и расширения файлов автоматически извлекутся из ячеек. См. снимок экрана:
Извлечение расширения файла из листа с помощью пользовательской функции
Есть и другой способ решить эту задачу — создать собственную функцию.
1. Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуля.
Код VBA: Извлечение расширений файлов из листа
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. Затем сохраните и закройте этот код, вернитесь на лист и введите формулу =FileExt(A2) в пустую ячейку рядом с вашими данными. См. снимок экрана:
4. Затем перетащите маркер заполнения на нужный диапазон — и все расширения файлов извлекутся из столбца A. См. снимок экрана:
Совет: В приведённых выше формулах A2 — это ячейка, из которой вы хотите извлечь расширение.
См. также:
Как получить имя файла без расширения в ячейке?
Как быстро извлечь имя файла из полного пути в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек