Как вытянуть название файла из линка

[jungo]

Привет всем!

Такая вот задачка:

В столбце "А" есть Полный линк к файлам.
C:\Documents and Settings\jungo\Desktop\New Folder\19.doc
C:\Documents and Settings\jungo\Desktop\New Folder\1.pdf
C:\Documents and Settings\jungo\Desktop\New Folder\4.pdf
C:\Documents and Settings\jungo\5.pdf
C:\Documents and Settings\jungo\Desktop\New Folder\6.pdf
C:\Documents and Settings\jungo\Desktop\New Folder\8.pdf
C:\Documents and Settings\jungo\Desktop\Alrm3.exe

Мне нужно получить только названия файлов:
19.doc
1.pdf
4.pdf
5.pdf
6.pdf
8.pdf
Alrm3.exe
Вопрос:
Как???

Пробовал:
1. Right - Не знаю как сказать "считай справа до "\"
2. Mid - Не знаю как сказать "последняя" "\"
3. VBA - Коряво получилось если кто хочет так, что бы по-ржать я покажу.

[SAS888]

Следующий макрос в той же строке столбца "B" поместит то, что Вы Хотите.

Sub Main()

    Dim i As Long, a() As String
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" Then
            a = Split(Application.Trim(Cells(i, "A")), "\")
            Cells(i, "B") = a(UBound(a))
        End If
    Next

End Sub

[ZORRO2005]

Или без VBA:
=ПСТР(A1;НАЙТИ("^";ПОДСТАВИТЬ(A1;"\ ";"^";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;"\";""))))+1;ДЛ СТР(A1))

[jungo]

Сообщение от ZORRO2005

Или без VBA:
=ПСТР(A1;НАЙТИ("^";ПОДСТАВИТЬ(A1;"\ ";"^";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;"\";""))))+1;ДЛ СТР(A1))

А можно на англиском!? на русском не понимает мой писюк.

SAS888
Огромное спасибо, как всегда помог!
А можешь объяснить?

Dim i As Long, a() As String
Почему значение а со скобкой?
a = Split(Application.Trim(Cells(i, "A")), "\")
Что такое Trim
Cells(i, "B") = a(UBound(a))
Что делает функция UBound

[ZORRO2005]

А можно на англиском!? на русском не понимает мой писюк.

Я знаю,
поэтому для вашего писюка приложил файл.

[SAS888]

Dim a() As String - Объявляем динамический массив из строковых переменных.
a = Split(Application.Trim(Cells(i, "A")), "\") - получаем массив строковых переменных ячейки Cells(i, "A"), предварительно убрав лишние пробелы. Разделитель получаемых элементов - символ "\".
Cells(i, "B") = a(UBound(a)) - в ячейку Cells(i, "B") помещаем последний элемент массива "a".

[jungo]

SAS888
Спасибо за урок! Поможет мне в дальнейшем...

ZORRO2005

Ой извеняюсь, на работе фаервол не даёт ничего скачать... Дома посмотрю. Или если не сложно кинуть на англиской мове сюда...
Спасибо!