Поиск в массиве

[Казанский]

Сообщение от Bape}l{ka

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

Да, со знаком вопроса лоханулся.
А с кавычкой просто - внутри текстовой строки ее нужно удвоить:

Sub bb()
Dim x
For Each x In Split(", . ; : ~? ! """)
    Selection.Replace What:=x, Replacement:="", LookAt:=xlPart
Next
End Sub

[Bape}l{ka]

спасибо всем, способ nilem-a и Казанского работает на выделении)) правда, если заменять "~?" на "~?"

For Each x In Array(",", ".", "...", ";", ":", "~?", "!", Chr(34))
    Selection.Replace What:=x, Replacement:=" " & x
Next

то в итоге в тексте ? становится ~? =ь ну это уже мелочи)) спасибо всем)))


п.с. подскажите пожалуйста, что такое Chr(34) ?? из справки я поняла, что это объявление типа лонг.. а поконкретнее можете сказать? в данном случае в частности, а то я тонкости не улавливаю. это получается, что таким образом мы перечисляем элементы массива, а не указываем его размерность?

[IgorGO]

Selection.Replace What:=x, Replacement:=" " & x
то в итоге в тексте ? становится ~? =ь ну это уже мелочи))
ну... как написали, так и становится...
подозреваю надо так:
Selection.Replace What:=x, Replacement:=""

Chr - это функция, которая возвращает символ по его порядковому номеру. В справке все об этом написано, читайте там. Chr(34) = """"

[Bape}l{ka]

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

спасибо за разъяснения!
п.с.: не знаю, может у меня какая другая справка или я ей пользоваться не умею Т_Т

[IgorGO]

допустим, заменить на пробелы - это нормально
Selection.Replace What:=x, Replacement:=" " & x но зачем там & x???
а Chr надо искать не в справке по Excel, а в VBA - там есть это (и много полезного другого)
удачи!

[Bape}l{ka]

Selection.Replace What:=x, Replacement:=" " & x

это чтобы знаки препинания тоже оставались, просто к ним пробелы цепляю.. или я что-то не так понимаю?

п.с. и конечно я ищу в справке VBA (а предложенный способ по F1 чво-та у меня вообще не работает)

[IgorGO]

Selection.Replace What:=x, Replacement:=" " & x
ни одного знака препинания это не заменит, это добавит по пробелу пред знаками препинания.
проведите смелый эксперимент и убедитесь в этом сами.

[Bape}l{ka]

это добавит по пробелу пред знаками препинания

так это и требуется) уже ж все опробовано)))