Сравнение текста InStr()

[SoFuWa]

Использую такое сравнение If InStr(1, Sheets("www").Cells(i, 9).Value & " ", Sheets("qqq").Cells(q, 8).Value & " ", 0) Then

тут знак пробела используется для распознования конца слова, а нужно еще другие знаки вставить типа "," и "."

можно как нибудь записать это в одном выражении, что бы не вставлять еще несколько условий

[SAS888]

Использую такое сравнение...

Вам нужно сравнение, или именно поиск позиции вхождения подстроки в строку?
Если сравнение, то лучше использовать оператор "Like", который позволяет использовать множество спец. символов. Например:

If Sheets("www").Cells(i, 9) Like Sheets("qqq").Cells(q, 8) & "*" Then...

[SoFuWa]

Нужен поиск вхождения подстроки в строк, не так написал.

Нужно что бы например и пробел и запятая использовались как конец слова. В одном выражении может быть между словами пробел а в конце например запятая. Например:
В выражении ст.м. "Контрактовая площадь",
ищется "Контрактовая площадь"

В конце стоит запятая, а между словами пробел.

[SAS888]

Ну так предварительно поменяйте во всем диапазоне, например, запятые на пробелы и примените Application.Trim
P.S. Кстати, а если написано так: ст.м."Контрактовая площадь",
т.е. без пробела?

[SoFuWa]

Пробел находится между словом "Контрактовая" и словом "площадь", а мешает тут запятая в конце так как второе слово воспринимается как:

площадь",

пробел после запятой - конец слова.
а ищется:
площадь"

нужно что то типа InStr(1, Sheets("www").Cells(i, 9).Value & (" " Or ","), Sheets("qqq").Cells(q, 8).Value & " ", 0)

но такого синтаксиса нет =))

а как поменять запятые на пробелы? В самом файле ничего менять не надо. Это если сохранить ячейку в строку текста и работать с ней? Если можно поподробнее так как мало разбираюсь =(

[SoFuWa]

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

[SAS888]

Пусть, например, требуется в строковой переменной txt получить значение ячейки "A1", убрав все запятые. Можно так:

txt = Replace([A1], ",", "")

[SoFuWa]

всё работает