Имеется таблица, состоящая из 1 столбца. Данные по тематике повторяются на каждой 4-ой ячейке. Необходимо преобразовать таблицу так чтобы с 1 столбца получилось 4 столбца,который бы содержал свои набор данных. Таблица в примере. Заранее спасибо за помощь.
Наверное я не совсем корректно описал суть задачи. В исходной таблице 1 столбец, содержащий 4 типа данных которые повторяються. ТОесть 1 и 5 ячейки имеют 1 тип- дата и время, 2-я и 6-я тип зачисления, 3-я и 7-я сумма Необходимо преобразовать таблицу менно по этому принципу. Прикладываю расширенный пример
Sub test()
Dim arr(), iarr(), i&, j&, x&
With Лист1
arr = .Range(.[b4], .[b4].End(xlDown)).Value
ReDim iarr(1 To UBound(arr) / 4, 1 To 4)
For i = 1 To 4
x = 1
For j = i To UBound(arr) Step 4
iarr(x, i) = arr(j, 1): x = x + 1
Next j
Next i
.Range("d4").Resize(UBound(iarr), UBound(iarr, 2)) = iarr
End With
End Sub
"Все гениальное просто, а все простое гениально!!!"