Сравнение данных в 2ух столбцах и копирование строк

[Teslenko_EA]

Здравствуйте vwmexanik.
если тема не закрыта, выложите пожалуйста архив с образцом Вашего файла ("35 тыс значений" не нужны, достаточно сотни ), я думаю можно "попытаться" ускорить выполнение.
Евгений.

[vwmexanik]

К счастью, вроде как нечасто приходится такими объемами ворочить ;-) Макрос выполнялся около 15-20 минут и сделал ровно то, что и требовалось! В принципе меня скорость работы устраивает.
Вопрос теперь еще один, чтобы "данный проект" закрыть ;-)
Есть ячейка, с текстом номерами бумаг и датой формата: от ДД.ММ.ГГГГ можно ли сделать так, чтобы в соседнюю ячейку перенеслось собственно от ДД.ММ.ГГГГ. Т.е. выделить дату и перенести её в соседнюю ячейку? Шаблон наверное должен быть что то вроде от ??.??.???? и от ??.??.??, тк местами есть год как ГГГГ и как ГГ. Есть также где 2 даты...

[EducatedFool]

Есть ячейка, с текстом номерами бумаг и датой формата: от ДД.ММ.ГГГГ можно ли сделать так, чтобы в соседнюю ячейку перенеслось собственно от ДД.ММ.ГГГГ.

Конечно можно.
От Вас - пример файла с указанием, что куда переносить.

[vwmexanik]

Вот пример:
http://www.sendspace.com/file/vgvs2b
Надо выцепить дату и перенести её в столбец рядом. В примере это столбец B
А в полном списке, данные с датой будут в столбце I, а перенести её надо будет в J

[EducatedFool]

Вот вариант с формулой: (пользовательская функция)

  Ячейка: B11     Формула  (стиль A1):   =ДатаИзСтроки(A11)
                  Формула  (стиль R1C1): =ДатаИзСтроки(RC[-1])

А вот - макросом:



В макросе

Sub test()
    On Error Resume Next
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        d = "": d = ДатаИзСтроки(cell)
        cell.Next = IIf(IsDate(d), CDate(d), "нет даты")
    Next cell
End Sub

Function ДатаИзСтроки(ByVal Строка As String) As String
    ДатаИзСтроки = Split(Trim(Split(Строка, " от ")(1)), " ")(0)
End Function

Вам надо будет изменить только 2 буквы - названия столбцов:
строку
Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))

поменять на строку
Set ra = Range([i1], Range("i" & Rows.Count).End(xlUp))

[vwmexanik]

EducatedFool
Вы настоящий профессионал! Спасибо Вам!

[Mark Green]

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

Возможно ли с помощью макроса, наверное, "заставить" программу произвести сверку значений в столбцах A и E и в случае если значения совпадут, скопировать строку со всеми столбцами на "лист2"?

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