Удаление лишней информации из строки

Пользователь

Сообщений: 10 Регистрация: 01.01.1970

04.03.2012 17:12:16

Здравствуйте, помогите решить данную проблему.

В номенклатуре поставщика товар идет под артикулом к примеру:

90023 B SH / ЧУЛКИ (ЧЕРНЫЕ) СО ШВОМ
90212 B SH / ТОП+ЛЕГИНСЫ СЕТКА(ЧЁРНЫЙ)
BW-020006-0702 / МУЛЬТИСКОРОСТНОЙ что-то там и тд.

У нас же используется только данные которые идут до слеша, т.е сам артикул товара. Сейчас для удобства работы все данные удаляются в ручную, либо от части помогает макрос который оставляет в строке только числовое значение, но это не всегда удобно и часто приводит к ошибкам.

У меня возник вопрос существует ли макрос который может удалить все данные до слеша.

Буду очень сильно признателен за помощь =)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 04.03.2012 17:20:12 Так удалять до слэша, или после? Вы уж определитесь:-) Данные - текст по столбцам. Я сам - дурнее всякого примера! ...

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#3 04.03.2012 17:23:26 ЧУЛКИ (ЧЕРНЫЕ) СО ШВОМ & МУЛЬТИСКОРОСТНОЙ что-то там Хорошее сочетание! --:)

k61 Пользователь Сообщений: 2443 Регистрация: 21.12.2012	#4 04.03.2012 17:32:43 ... Прикрепленные файлы post_314582.xls (20 КБ)

k61 Пользователь Сообщений: 2443 Регистрация: 21.12.2012	#5 04.03.2012 17:37:15 ... Прикрепленные файлы post_314584.xls (20.5 КБ)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#6 04.03.2012 17:38:57 {quote}{login=theZ0nb1e}{date=04.03.2012, 17:12}{thema=Удаление лишней информации из строки}{post}У нас же используется только данные которые идут до слеша, т.е сам артикул товара.{/post}{/quote} 99119 Я сам - дурнее всякого примера! ...

k61 Пользователь Сообщений: 2443 Регистрация: 21.12.2012	#7 04.03.2012 17:44:57 "У нас же используется только данные которые идут до слеша, т.е сам артикул товара" "существует ли макрос который может удалить все данные до слеша" ... а лучше и до и после слэша - post_314584.xls

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

04.03.2012 17:53:13

:-) До слэша:
Sub www()
Selection.TextToColumns Destination:=Selection, DataType:=xlDelimited, _
Other:=True, OtherChar:="/", FieldInfo:=Array(Array(1, 1), Array(2, 9))
End Sub
До и после:
Sub www()
Selection.TextToColumns Destination:=Selection, DataType:=xlDelimited, _
Other:=True, OtherChar:="/"
End Sub

Я сам - дурнее всякого примера! ...

theZ0nb1e

Пользователь

Сообщений: 10 Регистрация: 01.01.1970

04.03.2012 18:04:22

KukLP, спасибо огромное все так просто оказывается. Да я ошибся извиняюсь за такую глупость, нужно удалить все данные после слеша и пробел до него.

Это нам нужно для работы в 1с.

Если использовать "Данные->Текст по столбцам..." и сделать разделителем строки / то после разделения остается пробел который как раз и не дает сопоставить артикулы из 1с и Excel.

theZ0nb1e Пользователь Сообщений: 10 Регистрация: 01.01.1970	#10 04.03.2012 18:11:12 не нашел как сообщения редактировать... k61, Спасибо огромное, этот макрос как раз решает все проблемы. Еще раз спасибо всем за помощь, даже и не думал, что так быстро помогут.

MCH Пользователь Сообщений: 3907 Регистрация: 22.12.2012	#11 04.03.2012 18:11:14 =ЛЕВСИМВ(A1;ПОИСК(" /";A1&" /")-1)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#12 04.03.2012 18:12:35 Чтоб не оставался пробел перед End Sub строку Selection = Application.Trim(Selection) Я сам - дурнее всякого примера! ...

Читают тему