Удаление всех слов в строке ячейки Excel, кроме последнего

@neexon · Регистрация: 17.09.2014

Студворк — интернет-сервис помощи студентам

Доброго времени суток!

Подскажите, есть ли какой-то макрос чтобы удалить в строке все слова кроме последнего?

Пример:

Есть -
Duracell MN2400-4 (LR03) Size"AAA", 1.5V, щелочной (alkaline) <уп. 4 шт.> 123456

Должно получится -

123456

toiai · 17.09.2014, 20:15

Вот пример из множества:

Visual Basic
1
2
3
Sub pr()
    Cells(1, 1) = Split(Cells(1, 1))(UBound(Split(Cells(1, 1))))
End Sub

@neexon · 17.09.2014, 20:38 **[ТС]**

Это visual basic видимо, а хотелось бы средствами эксель это сделать, если возможно

toiai · 17.09.2014, 20:40

А этот код и написан в Excel или вы хотите формулами?
Но кажется вы же хотели

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

есть ли какой-то макрос

@neexon · 17.09.2014, 20:44 **[ТС]**

Я видимо что-то не совсем понимаю... у меня есть xls файлик в котором 2 колонки, в одной из них куча строк подобного вида где нужно оставить в каждой строке только последние цифры. Куда этот код нужно поместить чтобы сработало не подскажите?

toiai · 17.09.2014, 20:52

Выложите пример файла

@Апострофф · 17.09.2014, 20:57

Visual Basic
1
s=mid$(s,instrrev(s," ")+1)

Не по теме:

а два шплита на такой задаче - это круто, но не очень рационально=-O

@neexon · 17.09.2014, 21:11 **[ТС]**

...

@Апострофф · 17.09.2014, 21:30

neexon, читайте правила и это

@neexon · 17.09.2014, 21:33 **[ТС]**

12.xlsx пример файла,
Прошу прощения, постараюсь больше правила не нарушать

@snipe · 18.09.2014, 07:37

neexon,
что же вы в раздел VBA полезли если хотите формулами Excel все сделать

формула

Visual Basic
1
=ПСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(A1);" ";СИМВОЛ(13);ДЛСТР(СЖПРОБЕЛЫ(A1))-ДЛСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(A1);" ";"")));НАЙТИ(СИМВОЛ(13);ПОДСТАВИТЬ(СЖПРОБЕЛЫ(A1);" ";СИМВОЛ(13);ДЛСТР(СЖПРОБЕЛЫ(A1))-ДЛСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(A1);" ";""))))+1;100)

предпалагается что инфа находится в ячейке А1

До кучи еще один вариант на VBA

Visual Basic
1
2
3
Public Function pr(asd as string) as string
pr=strRevese(mid(StrRevese(trim(asd)),1,instr(1,StrRevese(trim(asd))," ")-1))
end function

Добавлено через 36 минут
В операторе strRevese допустил ошибку
правильно будет так StrReverse

@balance · 19.09.2014, 15:43

предпалагается что инфа находится в столбце А, сплошняком без пустых строк начиная с "A1". Результат будет в столбце B.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub pr()
 
Dim mass() As String
Dim i As Integer
Dim MyRange As Range
 
 
Set MyRange = Range("A1", Range("A1").End(xlDown))
 
For i = 1 To Range("A1").End(xlDown).Row
 
    mass = Split(MyRange.Cells(i).Text, " ")
 
    MyRange.Offset(0, 1).Cells(i).Value = mass(UBound(mass))
 
Next i
 
 
End Sub

@Hugo121 · 19.09.2014, 16:47

Выделить диапазон, заменить пробелзвёздочка на ничего.

@balance · 19.09.2014, 16:56

Replace All: *пробел на ничего. Идеальный код - отсутствие такового)

@Hugo121 · 19.09.2014, 17:04

Да, сослепу не заметил что у меня после звёздочки пробел был забит - ещё удивлялся, чего это оно нелогично работает

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@neexon 0 / 0 / 0 Регистрация: 17.09.2014 Сообщений: 7

	Удаление всех слов в строке ячейки Excel, кроме последнего 17.09.2014, 19:30. Показов 7146. Ответов 14 Метки нет (Все метки) Доброго времени суток! Подскажите, есть ли какой-то макрос чтобы удалить в строке все слова кроме последнего? Пример: Есть - Duracell MN2400-4 (LR03) Size"AAA", 1.5V, щелочной (alkaline) <уп. 4 шт.> 123456 Должно получится - 123456 0

@neexon 0 / 0 / 0 Регистрация: 17.09.2014 Сообщений: 7
	17.09.2014, 20:38 [ТС]
	Это visual basic видимо, а хотелось бы средствами эксель это сделать, если возможно 0

@neexon 0 / 0 / 0 Регистрация: 17.09.2014 Сообщений: 7
	17.09.2014, 20:44 [ТС]
	Я видимо что-то не совсем понимаю... у меня есть xls файлик в котором 2 колонки, в одной из них куча строк подобного вида где нужно оставить в каждой строке только последние цифры. Куда этот код нужно поместить чтобы сработало не подскажите? 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	17.09.2014, 20:52
	Выложите пример файла 0

@neexon 0 / 0 / 0 Регистрация: 17.09.2014 Сообщений: 7
	17.09.2014, 21:11 [ТС]
	... 0

@Апострофф 9908 / 3928 / 742 Регистрация: 11.10.2011 Сообщений: 5,908
	17.09.2014, 21:30
	neexon, читайте правила и это 1

@neexon 0 / 0 / 0 Регистрация: 17.09.2014 Сообщений: 7
	17.09.2014, 21:33 [ТС]
	12.xlsx пример файла, Прошу прощения, постараюсь больше правила не нарушать 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	19.09.2014, 16:47
	Выделить диапазон, заменить пробелзвёздочка на ничего. 0

@balance 0 / 0 / 1 Регистрация: 17.09.2014 Сообщений: 2
	19.09.2014, 16:56
	Replace All: *пробел на ничего. Идеальный код - отсутствие такового) 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	19.09.2014, 17:04
	Да, сослепу не заметил что у меня после звёздочки пробел был забит - ещё удивлялся, чего это оно нелогично работает 0

Удаление всех слов в строке ячейки Excel, кроме последнего

Решение