Поиск ячейки с Лист 1, копирование на Лист 2 - VBA

Формулировка задачи:

Доброго времени суток! Не силен в VBA, поэтому прошу помощи. Имеется файл, в котором есть чередующиеся столбцы: время, значение. Необходимо находить время (с погрешностью в минуту и с шагом в 10 минут, допустим 00:00:, следующее 00:10: и т.д. до 23:50, а соответствующее ему значение в соседнем справа столбце копировать на лист 2. Так с каждым столбцом со временем (A,C,E,G,I,K,M,O,Q,S,U,W,Y), значения копировать в строку на лист 2. Буду очень признателен за помощь

Код к задаче: «Поиск ячейки с Лист 1, копирование на Лист 2 - VBA»

textual
Sub pr()
    Dim b(), i&, j&, t&, k&
    a = Cells(1, 1).CurrentRegion
    ReDim b(1 To UBound(a), 1 To UBound(a, 2))
    For j = 1 To UBound(a, 2) Step 2
        t = 0: k = 1
        For i = 1 To UBound(a)
            If a(i, j) Like "##:" & t & "0:##.##" Then
                b(k, j) = a(i, j)
                b(k, j + 1) = a(i, j + 1)
                t = IIf(t = 5, 0, t + 1)
                k = k + 1
            End If
        Next
    Next
    Sheets.Add
    Cells(1, 1).Resize(UBound(b), UBound(b, 2)) = b
End Sub

6   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ