Необходимо сравнить 2 столбца и отредактировать совпадающие строки

[Deison]

Сообщение от SAS888

Не экономьте слова. Объясните подробнее: что значит "с таблицы в таблицу"? Что значит "универальней"?

Каждое утро приходит подобный отчет. В нем нужно посчитать всякие ремонты и прочую лабудень, при помощи данного макроса выполнить сверку и замену местонахождения. После чего переслать дальше. Причем без формул и макросов.
Так вот, хотелось бы сделать перемещение макроса попроще. Хотя бы тупо копировать, и после выполнения удалять.

з.ы. я реально в вопросах программирования дуб.

[Hugo121]

Есть универсальный, и на Find
Но на больших объёмах работает не быстро. Но тут ведь не большие объёмы.
Для данной задачи можно использовать так - на листе тракций один столбец заполняем словом "Тракционный", затем макросом копируем это слово в другой лист в нужное место совпадающих по станции строк. В свободный столбец параллельно можно ставить пометку о совпадении, подсчитав которые получим количество. Хотя сами пометки нумерованные, т.е. количество уже и так будет в последней пометке.
Ссылка (15 раз бесплатно):
для 2007:
http://www.excelworld.ru/index/comparefiles_find/0-25
две версии, для 2000 Экселя тоже:
http://hugo.nxt.ru/CompareFiles.Find.rar

P.S. Макрос в этом файле так и остаётся, в обрабатываемые никакого кода не пишется.

Вот настройки под Ваш файл (в столбец третьего листа Т записал "Тракционный", нашлось 118 совпадений):

Файл - приёмник: C:\temp\Deison\остаток 31.01.2011 (1).xls
Файл - источник: C:\temp\Deison\остаток 31.01.2011 (1).xls
Столбцы сравнения в приёмнике: a
Столбцы сравнения в источнике: b
Лист - приёмник (№): 1
Лист - источник (№): 3
Столбцы - приёмники данных копирования: c
Столбцы - источники данных копирования: t
Столбец для пометок в приёмнике: t

[SAS888]

С Exit For 2,18сек,
без 2,2сек.

А если так?

Public Sub MyCompare()
    Dim i As Long, j As Long, x As Range, n As Long, a(), b(), c()
    a = Range([A8], Cells(Rows.Count, 1).End(xlUp)).Value
    Set x = Range("C8:C" & UBound(a, 1)): b = x.Value
    With Sheets("Тракция"): c = .Range(.[B2], .Cells(Rows.Count, 2).End(xlUp)).Value: End With
    For i = 1 To UBound(a, 1)
        For j = 1 To UBound(c, 1)
            If a(i, 1) = c(j, 1) Then
                b(i, 1) = "Тракционный": n = n + 1: Exit For
    End If: Next: Next: x.Value = b
    [A6] = "К-во произведенных замен - " & n
End Sub

[kuklp]

Сообщение от Deison

Каждое утро приходит подобный отчет. В нем нужно посчитать всякие ремонты и прочую лабудень, при помощи данного макроса выполнить сверку и замену местонахождения. После чего переслать дальше. Причем без формул и макросов.
Так вот, хотелось бы сделать перемещение макроса попроще. Хотя бы тупо копировать, и после выполнения удалять.

з.ы. я реально в вопросах программирования дуб.

Можно вообще засунуть его в Personal.xls, тогда и копировать не надо будет.

[kuklp]

Сообщение от SAS888

А если так?
[

На пару сотых долей секунды быстрей.
Не существенно:-)

[kuklp]

Странно. Из Personal.xls быстрей отрабатывает. Причем оба варианта быстрей.

[Hugo121]

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

[SAS888]

На пару сотых долей секунды быстрей.

Во-первых, от 2 сек. это 1 %. И чем больше таблица, тем больше будет этот %. Во-вторых, нет предела совершенству. Этот код можно еще немного ускорить. Применить, const вместо строковой переменной, вставлять на лист не весь массив, а ограничить его последней измененной строкой и т.п. Но, похоже, что это уже никому не нужно.

[kuklp]

Я не азартен. И к универсальности никогда не стремлюсь. Больше беспокоюсь о совместимости версий. На работе еще местами Эксель 5 стоит. Ну и: "Лучшее - враг хорошего":-) А совершенству нет предела...
С уважением, Сергей.

[Deison]

Сообщение от kuklp

Можно вообще засунуть его в Personal.xls, тогда и копировать не надо будет.

Можно попдробней. Как это? Вложение приветствуется)