Выборка из таблицы и копирование строк

[Bromista]

Добрый день. Прошу помощи, опыта в VB у меня почти нет.
Задача: есть таблица, надо пройти по ячейкам и если они равны некому эталлону, то всю строку скопировать на другой воркшит.
Дополнительно: возможно проблема в конструкции копирования, я ее подсмотрел в одном примере в Интернете.
Этот скрипт пробегает по всем ячейкам таблицы размером 10х100, в ячейке (1, 12) есть некоторое значение, с которым сравнивается содержимое каждой проверяемой ячейки, если оно совпадает, то всю строку, в которой находится эта ячейка, надо перекопировать на новый воркшит Result. Таким образом, на новом листе создастся новая таблица, в которой будут только необходимые нам строки.

Sub macros1()
Dim i As Integer
Dim j As Integer
Dim k As Integer
On Error Resume Next
Set NewSheet = Worksheets.Add
NewSheet.Name = "Result"
k = 1
For i = 1 To 100
For j = 1 To 10
Worksheets("Sheet1").Activate
If Worksheets("Sheet1").Cell(i, j) = Worksheets("Sheet1").Cell(1, 12) Then
Worksheets("Sheet1").Rows(i, i).Copy Worksheets("Result").Rows(k, k)
k = k + 1
End If
Next j
Next i
Worksheets("Result").Activate
End Sub

Новый лист создается, ничего не копируется. Пробовал менять процедуру копирования после then на простое выделение диапазона ячеек на новом листе - срабатывало, но срабатывало независимо от истинности условия в if. То есть конструкция if вроде как не работает. конкретной таблицы нет, сам накидал 6 строк и 4 столбца и поместил "1" в ячейку (1, 12) просто для проверки.

[Hugo121]

А где пример?
Я уже вроде вчера этот вопрос видел - всё просто, но код на 90% неправильный.
Но делать пример совершенно не хочется.
И ещё - скажите, вам нужно только данные скопировать, или форматы и формулы тоже? (ну формулы то вряд ли...)

P.S. Ладно, не 90%...
Мне лучше так показалось.
Хотя я бы делал иначе. если нужны только данные.

Sub macros1()
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    On Error Resume Next
    Set NewSheet = Worksheets.Add
    With Worksheets("Sheet1")
        k = 1
        For i = 1 To 100
            For j = 1 To 10
                If .Cells(i, j) = .Cells(1, 12) Then
                    .Rows(i).Copy NewSheet.Rows(k)
                    k = k + 1
                    Exit For
                End If
            Next j
        Next i
    End With
    NewSheet.Name = "Result"
    Worksheets("Result").Activate
End Sub

Тоже самое на массивах в 5 раз быстрее. Было бы строк в 5 раз больше - было бы вероятно в 25 раз быстрее...

Sub macros2()
'Dim tm: tm = Timer
    Dim i&, ii&
    Dim j&
    Dim k&
    Dim a, b
    Dim temp
    On Error Resume Next
    Set NewSheet = Worksheets.Add
    With Worksheets("Sheet1")
        temp = .Cells(1, 12)
        a = .[a1:j100].Value
        ReDim b(1 To 100, 1 To 10)
        For i = 1 To 100
            For j = 1 To 10
                If a(i, j) = temp Then
                    k = k + 1
                    For ii = 1 To 10: b(k, ii) = a(i, ii): Next
                    Exit For
                End If
            Next j
        Next i
    End With
    NewSheet.Name = "Result"
    NewSheet.[a1:j10].Resize(k) = b
    Worksheets("Result").Activate
    '    Debug.Print Timer - tm
End Sub

[v0r0nika]

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

А где пример?
Я уже вроде вчера этот вопрос видел - всё просто, но код на 90% неправильный.
Но делать пример совершенно не хочется.
И ещё - скажите, вам нужно только данные скопировать, или форматы и формулы тоже? (ну формулы то вряд ли...)

[/CODE]

а разрешите "вклиниться" и немного модифицировать суть задачи (поскольку основная идея мне подходит).
Есть лист с произвольным количеством строк (неизвестно, сколько их будет заведено первоначально). Из него нужно сформировать новый лист для дальнейшей выгрузки в txt (и загрузке в систему), причем формирование происходит по следующему сценарию: некоторые ячейки итогового листа - изначально константы и таковыми должны оставаться (оранжевые), остальные формируются из исходного по условиям: если заполнена ячейка L1, то мы копируем в соответствующие ячейки нового листа значения совпадающих столбцов (таблицы исходного и целевого листов совпадают только по некоторым столбцам). Если заполнена ячейка M1 - то добавляем строчку, аналогично заполняя соответствующие аналитики. И так-для 4-х последних столбцов. То есть если в 1 строке исходного файла заполнены все 4 последние ячейки, то в итоговом листе должно появиться 4 новые строки.

Сейчас в примере формируется 4 отдельных листа по условиям на каждую из ячеек, из которых планировалось потом собирать один общий, но хотелось бы изначально оптимизировать..

[Bromista]

Спасибо большое за помощь, все работает.