Поиск текста в тексте и возврат соответствующего значения

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

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

19.12.2012 09:43:54

Добрый день!

Господа, помогите!
Облазил поиск но ответ не нашел, мож не так искал, но мучаюсь вторые сутки...

А вопрос как мне кажется не сложный, но как его решить....

По существу:
есть выписка из банка, в ней есть все что нужно за исключением наименования клиента.
есть база клиентов с их р/с.
Нужно объединить.

В выписке есть ячейки с текстом который СОДЕРЖИТ р/с. но там еще куча другой инфы. и как его выдернуть я не знаю.

Помогите пож. Очень нужно!

Прикрепленные файлы

post_386337.xlsx (23.59 КБ)

KuklP

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

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

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

19.12.2012 10:14:08

Sub www()
Dim r As Range, a, i&
Set r = [a9].CurrentRegion: a = [a1].CurrentRegion.Value
For i = 2 To UBound(a)
r.AutoFilter 4, "=*" & a(i, 2) & "*"
If r.Columns(1).SpecialCells(12).Count > 1 Then _
r.Offset(1, 2).Resize(r.Rows.Count - 1).Columns(4).SpecialCells(12).Value = a(i, 1)
If a(i, 3) <> "" Then r.AutoFilter 4, "=*" & a(i, 3) & "*"
If r.Columns(1).SpecialCells(12).Count > 1 Then _
r.Offset(1, 2).Resize(r.Rows.Count - 1).Columns(4).SpecialCells(12).Value = a(i, 1)
Next
r.AutoFilter
End Sub

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

leonovdmitriy

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

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

19.12.2012 10:21:21

Спасибо!
Это как я понял макрос.
Только вот я никогда с ними не работал.. Подскажите пож темку в которой поподробней описывается работа макросов. Просто не хочу по тупому скопировать вашу работу и потом при необходимости что-то изменить стучаться опять на форум. Хочется понимать...

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#4 19.12.2012 10:48:10 http://www.planetaexcel.ru/forum.php?thread_id=8763 http://www.excel-vba.ru/chto-umeet-excel/ http://excel.ucoz.ru/index/biblioteka/0-5 Я сам - дурнее всякого примера! ...

Guest Гость	#5 19.12.2012 11:15:09 Спасибо!

AlexMen Пользователь Сообщений: 481 Регистрация: 01.01.1970 Если не отвечаю, пишите в личку.	#6 19.12.2012 11:18:56 =ЛЕВСИМВ(ПРАВСИМВ(D14;50);20) отсчитывает с конца строки кор счет и бик, дальше р/с, но данные не в одном формате местами написано название фирмы и нет кор счета, бика, р/с не нужно оскорблять.