Макрос корректировки текста ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос корректировки текста ячейки (Макросы/Sub)

mdma

Дата: Четверг, 03.05.2018, 03:37 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Доброго времени суток, форумчане.

Возникла необходимость в обработке огромного количества ячеек (40000штук в столбик A1-A40000) с коротким текстовым содержанием (по типу AxBxCyDy) по следующему принципу:

AxBxCyDy трансформировать в ABCDds
AxBxCyDz трансформировать в ABCDss
7x6x5x4y --> 7654ss
7x6y5z4u ---> 7654r
в общем, попробую описать закономерность, если в тексте из 8 симвлов встречается одна повторяющаяся больше чем один раз строчная буква(НЕ заглавная), то все строчные удалить и оставить только заглавные(или цифры) и сразу после них написать "ss"
А если среди строчных букв встречаются две повторяющиеся дважды буквы, то строчные удалить и после заглавных или цифр написать "ds"/

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

Приму любую помощь, и даже готов финансово отблагодарить за помощь.
Всем мир!

Ответить

Апострофф

Дата: Четверг, 03.05.2018, 08:28 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 123 ±

Замечаний: 0% ±

Excel 1997

mdma, окончание r в 7654r ничего не сказано?

Сообщение отредактировал Апострофф - Четверг, 03.05.2018, 08:47

Ответить

StoTisteg

Дата: Четверг, 03.05.2018, 10:42 | Сообщение № 3

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

mdma, я правильно Вас понимаю, что нужно удалить строчные и поставить в конце ds, если они повторяются и ss, если они все разные? И да, присоединяюсь к вопросу Апострофф насчёт r.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

sboy

Дата: Четверг, 03.05.2018, 11:54 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
т.к. файла примера нет, и непонятно как располагаются данные, реализовал через пользовательскую функцию
[vba]

Код

Function mdma(a As String)
    With CreateObject("VBscript.RegExp")
        .Global = True
        .Pattern = "[^a-z]"
        t = .Replace(a, "")
        .Pattern = "[a-z]"
        t1 = .Replace(a, "")

            For x = 1 To Len(t)
                .Pattern = Left(t, 1)
                If .Execute(t).Count > 1 Then q = q + 1
                t = .Replace(t, "")
            Next

        Select Case q
        Case 0
            s = "r"
        Case 1
            s = "ss"
        Case 2
            s = "ds"
        End Select

        mdma = t1 & s
    End With
End Function

[/vba]