Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


           Интенсив по Python 3-5 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
           Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Ответ
 
Опции темы Поиск в этой теме
Старый 13.06.2017, 13:39   #1
Olya1985
Форумчанин
 
Регистрация: 31.12.2010
Сообщений: 113
По умолчанию Макрос: по всем компаниям А, которые повторяются в файле несколько раз, автоматически преставился один статус – изменения – последний статус. Помогите сделать скрипт :)

Добрый день!

Помогите, пожалуйста, написать небольшой макрос в excel

Необходимо, чтобы после отработки макроса, например, по всем компаниям А, которые повторяются в файле несколько раз, автоматически преставился один статус – изменения – тот статус, который в файле самый последний. И так по всем компаниям.

Файл во вложении

Спасибо!
Вложения
Тип файла: xlsx Скрипт.xlsx (10.0 Кб, 10 просмотров)
Olya1985 вне форума Ответить с цитированием
Старый 13.06.2017, 14:22   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Sub a()
    Dim r As Long, j As Long
    Dim d
    Dim s As String
    Set d = CreateObject("Scripting.Dictionary")
    r = ActiveSheet.Range("D5000").End(xlUp).Row
    Do While r > 1
        s = Application.Trim(Cells(r, "D"))
        If Not d.Exists(s) Then
            For j = r-1 To 2 Step -1
                If Application.Trim(Cells(j, "D")) = s Then
                    Cells(j, "J") = Cells(r, "J")
                End If
            Next
            d.Add s, ""
        End If
        r = r - 1
    Loop
    Set d = Nothing
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 13.06.2017, 14:27   #3
Olya1985
Форумчанин
 
Регистрация: 31.12.2010
Сообщений: 113
По умолчанию

Большое спасибо!
Olya1985 вне форума Ответить с цитированием
Ответ

          Оплата за обучение в Kata Academy только после твоего трудоустройства в IT!
          Начни карьеру Middle Java-разработчика, подробнее на сайте академии, ссылка - https://clck.ru/fCqwP

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывести те элементы списка которые повторяются один раз(Cи) Genome Помощь студентам 0 22.06.2016 21:41
Статус GriFFoN PHP 1 29.09.2011 12:11
статус the_deer_one Свободное общение 7 14.06.2011 11:31
Статус TSocketServer Mifig Работа с сетью в Delphi 2 31.10.2010 19:59
страница автоматически обновляется через 1 секунду только один раз Zeron JavaScript, Ajax 5 14.06.2010 08:18