Как быстро извлечь имя файла из полного пути в Excel?
Предположим, у вас есть лист со списком путей к файлам, и вы хотите извлечь только имена файлов — то есть часть, расположенную справа от последнего обратного слэша, — как показано на следующих снимках экрана. Существуют ли быстрые способы выполнить эту задачу?
Извлечение имени файла из полного пути с помощью формулы в Excel
Извлечение имени файла из полного пути с помощью пользовательской функции
Извлечение имени файла из полного пути с помощью кода VBA
Извлечение имени файла из полного пути с помощью формулы в Excel
В Excel вы можете быстро извлечь только имя файла из полного пути с помощью приведённой ниже формулы.
Выберите пустую ячейку, введите в неё приведённую ниже формулу и нажмите клавишу Enter.
=MID(A1,FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))+1,LEN(A1))
Совет: A1 — это ячейка, из которой вы хотите извлечь имя файла. Нажмите клавишу Enter, затем перетащите маркер заполнения, чтобы применить формулу ко всему нужному диапазону. После этого имя файла будет извлечено из каждой ячейки.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Извлечение имени файла из полного пути с помощью пользовательской функции
С помощью приведённой ниже пользовательской функции вы сможете легко и быстро получить имя файла.
1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic for Applications.
2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуль.
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. Нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic for Applications и вернуться к листу. В пустую ячейку, например B1, введите приведённую ниже формулу и нажмите клавишу Enter.
=FunctionGetFileName(A1)
Затем снова выберите ячейку B1, перетащите маркер заполнения на диапазон, к которому вы хотите применить эту формулу, и все имена файлов будут извлечены из полных путей, как показано в следующем результате:
Извлечение имени файла из полного пути с помощью кода VBA
Помимо пользовательской функции, имена файлов можно извлекать и с помощью кода VBA. Выполните следующие действия:
1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic for Applications.
2. Нажмите Вставка > Модуль и вставьте следующий код в окно модуля.
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. Затем нажмите клавишу F5, чтобы запустить этот код, и выберите диапазон, из которого нужно извлечь имя файла (см. снимок экрана):
4. После этого нажмите кнопку ОК, и имена файлов будут извлечены из выделенного диапазона, как показано ниже:
Примечание: При использовании этого VBA-кода исходные данные будут утеряны, поэтому обязательно создайте их резервную копию перед запуском.
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек