Переделать макрос по сокращению текста

@TimurLat · Регистрация: 05.06.2013

Студворк — интернет-сервис помощи студентам

В исходном файле макрос, выполняющий сокращение текста первого листа согласно словарю. Сокращения присваиваются ячейкам согласно общему идентификатору, находящемуся в первом столбце 1 и 2 листов.3 лист -словарь, его не трогаем. Задача - переделать макрос так, чтобы он брал значения из столбца на 2 листе и описать комментариями в коде адресацию, не совсем понимаю что и откуда берется и куда девается.

@Hugo121 · 18.06.2013, 12:54

Архив пустой.

@TimurLat · 18.06.2013, 12:57 **[ТС]**

Извиняюсь...Файл открыт был.

@Hugo121 · 18.06.2013, 13:07

Вообще нет проблем убрать вообще первый лист и делать всё на втором - это даже проще чем сейчас, и будет правильнее.
Т.к. сейчас получается ерунда из-за того, что номера не уникальны - поэтому по ним подтягивать результа на второй лист нельзя.
Я в примере предположил, что Вы ошиблись (я спрашивал, но ответа так и не получил) - поэтому я заменил все номера на уникальные (а Вы не среагировали).
Т.е. пока задача не понятна... Если оставляем только лист данных и словарь - тогда эти номера вообще можно не принимать в рассчёт, менять просто текст на месте. Т.е. номера вполне можно удалить/переместить/спрятать, чтоб с толку не сбивали.
так?

@TimurLat · 18.06.2013, 13:11 **[ТС]**

Номера теперь вообще не нужны, потому что ячейки с текстом будут находиться на том же листе. Да, номера можно убрать/спрятать/удалить. И пожалуйста комментарии в коде на счет адресов(что куда идет) для меня, буду очень признателен.

@Hugo121 · 18.06.2013, 13:17

Вот код под два листа:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Option Compare Text
 
Sub tt()
    Dim a(), b(), i&, ii&
    a = Sheets(1).[a1].CurrentRegion.Value
    b = Sheets(2).[a1].CurrentRegion.Value
 
    For i = 1 To UBound(a)
        For ii = 1 To UBound(b)
            a(i, 2) = Replace(a(i, 2), b(ii, 1), b(ii, 2))
        Next
    Next
    Sheets(1).[a1].CurrentRegion.Value = a
End Sub

Адресация тут простая - A1

И CurrentRegion - это область, ограниченная "прямой пустотой" - пустыми строкой и столбцом.

Ещё что - после замены "цикл" на "ц" из вот этого

цикла
циклам
циклами
циклов
циклом

получается ерунда, типа
"рег кл УПР напри л-ками пыл-ль м-цаы Б УП"
Т.е. нужно продумать порядок замен.

@TimurLat · 18.06.2013, 13:19 **[ТС]**

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

@Hugo121 · 18.06.2013, 13:25

Если убрать номера - т.е. оставить на первом листе только столбец A со строками, то в коде меняется одна строка:

Visual Basic
1
            a(i, 1) = Replace(a(i, 1), b(ii, 1), b(ii, 2))

Добавлено через 3 минуты
Объяснять код совсем нечего - взяли данные двух листов в два массива, перебором цикл в цикле заменили в одном все элементы на все элементы другого (если заменилось), выгрузили изменённый массив назад.

@TimurLat · 18.06.2013, 13:37 **[ТС]**

Сам алгоритм я понял, меня сбили с толку CurrentRegion, потому что при импорте макроса в полную таблицу всё это дело брыкалось и никак не хотело работать. А если нет пустых границ, то возможно ли такое описание переменных:

Visual Basic
1
2
 a = Sheets(1).Range("A1").Value
    b = Sheets(2).Range("A1").Value

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

Visual Basic
1
Sheets("Лист3").Range("M" + CStr(i)).Value = a

, да?

@Hugo121 · 18.06.2013, 13:52

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Option Compare Text
 
Sub tt()
    Dim a(), b(), i&, ii&
 
    With Sheets(1)
        a = Range(.[A1], .Cells(.Rows.Count, "A").End(xlUp)).Value
    End With
 
    With Sheets(2)
        b = Range(.[A1], .Cells(.Rows.Count, "B").End(xlUp)).Value
    End With
 
    For i = 1 To UBound(a)
        For ii = 1 To UBound(b)
            a(i, 1) = Replace(a(i, 1), b(ii, 1), b(ii, 2))
        Next
    Next
    Sheets(1).[A1].Resize(UBound(a), 1) = a
End Sub

Как видите, букв писать пришлось больше, что лениво и не нужно на Вашем примере

@TimurLat · 18.06.2013, 13:56 **[ТС]**

Да, вижу

Спасииибооо!!!

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в конфигурации КА2. Данные берутся из регистра сведений, по. . .

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	18.06.2013, 12:54
	Архив пустой. 1

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	18.06.2013, 13:07
	Вообще нет проблем убрать вообще первый лист и делать всё на втором - это даже проще чем сейчас, и будет правильнее. Т.к. сейчас получается ерунда из-за того, что номера не уникальны - поэтому по ним подтягивать результа на второй лист нельзя. Я в примере предположил, что Вы ошиблись (я спрашивал, но ответа так и не получил) - поэтому я заменил все номера на уникальные (а Вы не среагировали). Т.е. пока задача не понятна... Если оставляем только лист данных и словарь - тогда эти номера вообще можно не принимать в рассчёт, менять просто текст на месте. Т.е. номера вполне можно удалить/переместить/спрятать, чтоб с толку не сбивали. так? 1

@TimurLat 2 / 2 / 0 Регистрация: 05.06.2013 Сообщений: 78
	18.06.2013, 13:11 [ТС]
	Номера теперь вообще не нужны, потому что ячейки с текстом будут находиться на том же листе. Да, номера можно убрать/спрятать/удалить. И пожалуйста комментарии в коде на счет адресов(что куда идет) для меня, буду очень признателен. 0

@TimurLat 2 / 2 / 0 Регистрация: 05.06.2013 Сообщений: 78
	18.06.2013, 13:19 [ТС]
	Да, я тоже это заметил, но сначала нужен сам макрос, с именами буду возиться потом, это проще. спасибо огромное! 0

@TimurLat 2 / 2 / 0 Регистрация: 05.06.2013 Сообщений: 78
	18.06.2013, 13:56 [ТС]
	Да, вижуСпасииибооо!!! 0