Добрый, попалась гадкая таблица для анализа и сравнения, но проглядывалась некая система, между цифрами в конце пробел, а должен быть символ. Ну я как програмист мягко говоря не очень, но думаю по идее замены макрорекодер пишет, попробую. На удивление сработало. Х и У тут отдельно, т.к. мне кажется что только Х отработает 0&" "&0 ,1&" "&1, 2&" "&2 ,3&" "&3 ... 9&" "&9 или я ошибаюсь?[
т.е. было г. Азов Васильева 79 1 стало г. Азов Васильева 79что нибудь1
г. Азов, Васильева, д. 79 1 стало г. Азов, Васильева, д. 79что нибудь1
Но вопрос на самом деле не в этом(просто плодить темы на схожую тему не правильно)
Вот с буквами сложнее, объявил массив и если пишу Selection.Replace x & "что нибудь" & АБВ, x & АБВ, где АБВ-имя переменной, то ошибка, попытался втулить for each, вообще закидало ошибками.
по запарке оставил i и вроде бы отрабатывает, но мне не ясно почему? Я ведь i не объявлял, что оно значит? или это нечто по умолчанию?
т.е. было г. Азов Васильева 79 Б стало г. Азов Васильева 79Б
г. Азов , Васильева,, 79 Б стало г. Азов ,Васильева,, 79Б
т.е. было г. Азов Васильева 79 1 стало г. Азов Васильева 79что нибудь1
г. Азов, Васильева, д. 79 1 стало г. Азов, Васильева, д. 79что нибудь1
Код |
---|
Sub замена() Dim x, y As Integer For x = 0 To 9 ' For y = 0 To 9 Selection.Replace What:=x & " " & y, Replacement:=x &"что нибудь"& y, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next Next End Sub |
Вот с буквами сложнее, объявил массив и если пишу Selection.Replace x & "что нибудь" & АБВ, x & АБВ, где АБВ-имя переменной, то ошибка, попытался втулить for each, вообще закидало ошибками.
по запарке оставил i и вроде бы отрабатывает, но мне не ясно почему? Я ведь i не объявлял, что оно значит? или это нечто по умолчанию?
т.е. было г. Азов Васильева 79 Б стало г. Азов Васильева 79Б
г. Азов , Васильева,, 79 Б стало г. Азов ,Васильева,, 79Б
Код |
---|
Sub замена2()Dim x As VariantDim АБВ As Variant АБВ = Array("а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", "к", "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", "щ", "ъ", "ы", "ь", "э", "ю", "я") For x = 0 To 9 ' Selection.Replace x & " " & i, x & i Next End Sub |