Аналог "правильного" trim() и регулярные выражения в VBA

[Smaragdov]

Вопрос с ошибкой в заливке фона ячеек снят.
Проглядел, что дважды ошибочно вызывал функцию, меняющую фон ячеек.

Уважаемый doober, спасибо!
код
If (j = 6 And Not cDbArr(6) Like "######") Then
это как раз то, что нужно! Похоже, что использование Like значительно упростит мой код в нескольких местах!

Я думаю улица всегда присутствует.

Увы, но далеко не всегда. Частенько попадаются такие адреса:
123456, г.Урюпинск, главпочтамт, довостребования Иванов А.Б.
или
123456, Саратов, п/я 123, Петренко И.П.

Завтра надо показать начальству то, что успел сделать, поэтому все дополнительные проверки, украшательства и прочие "рюшечки" отложу на вторник-среду...

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

[doober]

Для показа начальству можно и так.Отсекает индекс и город

If InStr(1, cDbArr(7), cDbArr(5), vbTextCompare) > 0 And InStr(1, cDbArr(7), cDbArr(6), vbTextCompare) > 0 Then
rr = Split(cDbArr(7), ",", -1)

For n = 2 To UBound(rr)
sl = sl & rr(n) & ","
Next
cDbArr(7) = Mid(sl, 1, Len(sl) - 1)

End If

[Smaragdov]

Проверка на повтор города и индекса делается для исключения тавтологии на конверте, например, вместо
ИНДЕКС: 162600
ГОРОД: Череповец
АДРЕС: 162600, Череповец, ул.Ленина д.30. оф5
КОМУ: Иванова Е.П.

должно быть
ИНДЕКС: 162600
ГОРОД: Череповец
АДРЕС: ул.Ленина д.30. оф5
КОМУ: Иванова Е.П.

при этом адрес
ИНДЕКС: 123456
ГОРОД: Лесной
АДРЕС: Свердловская область, город Лесной, улица.К.Маркса, д.1
КОМУ: Петрова А.Б.
выглядит вполне допустимо

Просмотрел ~1000 заявок с адресами и понял, что полностью автоматизировать "чистку" адреса невозможно, т.к. заказчики могут писать свой адрес, как им заблагорассудится, например:

• 426011 Ижевск ул Холмогорова 13
• Свердловская область, город Лесной, улица.К.Маркса, д.1
• 398050 - Липецк - а/я 771

поэтому rr = Split(cDbArr(7), ",", -1) не сработает

Пока останавливаюсь на варианте простой пометки "сомнительной" ячейки при помощи фонового цвета.
Индекс (если он стоит в начале адреса), все-таки желательно удалить, уменьшив этим работу секретарю по ручной правке адресов. Сейчас получилось так:

' если строка адреса содержит п/индекс или уже указанное название города, то...
If (InStr(1, cDbArr(7), cDbArr(5), vbTextCompare) > 0 Or InStr(1, cDbArr(7), cDbArr(6), vbTextCompare) > 0)  Then
	Cells(i + startRow + 1, j + 1).Interior.ColorIndex = 40    ' заливка фоном проблемной ячейки

	' если вначале адреса идет уже указанный п/индекс
	If (InStr(1, cDbArr(7), cDbArr(6), vbTextCompare) > 0 And Mid(cDbArr(7), 1, 6) = cDbArr(6)) Then
		cDbArr(7) = LTrim(Mid(cDbArr(7), 7))    ' берем ту часть строки, что после индекса без пробелов слева

		' если после индекса была запятая, то берем то, что после нее и убираем левые пробелы
		If (Mid(cDbArr(7), 1, 1) = ",") Then cDbArr(7) = LTrim(Mid(cDbArr(7), 2))
	End If
End If

Cells(i + startRow + 1, j + 1).Value = cDbArr(7)

где:
cDbArr(5) - город
cDbArr(6) - почтовый индекс
cDbArr(7) - почтовый адрес

[steppanov]

так же столкнулся с нелепым trim
в моём случае хватило

p1 = Replace(p1, vbTab, "")
p1 = Replace(p1, vbCrLf, "")
p1 = Replace(p1, vbCr, "")

где p1 тримаемый текст или параграф

может кому поможет