Поиск ячейки с Лист 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»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д