Sub cols_test()
Dim num0 As New Collection
Dim num1 As New Collection
Dim num2 As New Collection
Dim sup0 As New Collection
Dim sup1 As New Collection
Dim sup2 As New Collection
Dim sum1_0 As New Collection
Dim sum1_1 As New Collection
Dim sum1_2 As New Collection
Dim sum2_0 As New Collection
Dim sum2_1 As New Collection
Dim sum2_2 As New Collection
Dim tip0 As New Collection
Dim tip1 As New Collection
Dim tip2 As New Collection
Dim arr1(), arr2(), arr3(), arr4(), arr5(), arr6(), arr7(), arr8(), arr9(), arr10(), arr11(), arr12(), arr13(), arr14(), arr15() As Variant
For i = 1 To Sheets("Исходник").UsedRange.Row - 1 + Sheets("Исходник").UsedRange.Rows.Count
If Sheets("Исходник").Range("F" & i) = 0 Then
num0.Add Sheets("Исходник").Range("A" & i).Value
sup0.Add Sheets("Исходник").Range("B" & i).Value
sum1_0.Add Sheets("Исходник").Range("C" & i).Value
sum2_0.Add Sheets("Исходник").Range("D" & i).Value
tip0.Add Sheets("Исходник").Range("E" & i).Value
ElseIf Sheets("Исходник").Range("F" & i) = 1 Then
num1.Add Sheets("Исходник").Range("A" & i).Value
sup1.Add Sheets("Исходник").Range("B" & i).Value
sum1_1.Add Sheets("Исходник").Range("C" & i).Value
sum2_1.Add Sheets("Исходник").Range("D" & i).Value
tip1.Add Sheets("Исходник").Range("E" & i).Value
ElseIf Sheets("Исходник").Range("F" & i) = 2 Then
num2.Add Sheets("Исходник").Range("A" & i).Value
sup2.Add Sheets("Исходник").Range("B" & i).Value
sum1_2.Add Sheets("Исходник").Range("C" & i).Value
sum2_2.Add Sheets("Исходник").Range("D" & i).Value
tip2.Add Sheets("Исходник").Range("E" & i).Value
End If
Next i
ReDim arr1(1 To num0.Count, 1 To 1)
For r = 1 To num0.Count
arr1(r, 1) = num0(r)
Next
ReDim arr2(1 To num1.Count, 1 To 1)
For r = 1 To num1.Count
arr2(r, 1) = num1(r)
Next
ReDim arr3(1 To num2.Count, 1 To 1)
For r = 1 To num2.Count
arr3(r, 1) = num2(r)
Next
ReDim arr4(1 To sup0.Count, 1 To 1)
For r = 1 To sup0.Count
arr4(r, 1) = sup0(r)
Next
ReDim arr5(1 To sup1.Count, 1 To 1)
For r = 1 To sup1.Count
arr5(r, 1) = sup1(r)
Next
ReDim arr6(1 To sup2.Count, 1 To 1)
For r = 1 To sup2.Count
arr6(r, 1) = sup2(r)
Next
ReDim arr7(1 To sum1_0.Count, 1 To 1)
For r = 1 To sum1_0.Count
arr7(r, 1) = sum1_0(r)
Next
ReDim arr8(1 To sum1_1.Count, 1 To 1)
For r = 1 To sum1_1.Count
arr8(r, 1) = sum1_1(r)
Next
ReDim arr9(1 To sum1_2.Count, 1 To 1)
For r = 1 To sum1_2.Count
arr9(r, 1) = sum1_2(r)
Next
ReDim arr10(1 To sum2_0.Count, 1 To 1)
For r = 1 To sum2_0.Count
arr10(r, 1) = sum2_0(r)
Next
ReDim arr11(1 To sum2_1.Count, 1 To 1)
For r = 1 To sum2_1.Count
arr11(r, 1) = sum2_1(r)
Next
ReDim arr12(1 To sum2_2.Count, 1 To 1)
For r = 1 To sum2_2.Count
arr12(r, 1) = sum2_2(r)
Next
ReDim arr13(1 To tip0.Count, 1 To 1)
For r = 1 To tip0.Count
arr13(r, 1) = tip0(r)
Next
ReDim arr14(1 To tip1.Count, 1 To 1)
For r = 1 To tip1.Count
arr14(r, 1) = tip1(r)
Next
ReDim arr15(1 To tip2.Count, 1 To 1)
For r = 1 To tip2.Count
arr15(r, 1) = tip2(r)
Next
Sheets("Вывод").Range("A3").Resize(UBound(arr1, 1), 1) = arr1
Sheets("Вывод").Range("G3").Resize(UBound(arr2, 1), 1) = arr2
Sheets("Вывод").Range("M3").Resize(UBound(arr3, 1), 1) = arr3
Sheets("Вывод").Range("C3").Resize(UBound(arr4, 1), 1) = arr4
Sheets("Вывод").Range("I3").Resize(UBound(arr5, 1), 1) = arr5
Sheets("Вывод").Range("O3").Resize(UBound(arr6, 1), 1) = arr6
Sheets("Вывод").Range("D3").Resize(UBound(arr7, 1), 1) = arr7
Sheets("Вывод").Range("J3").Resize(UBound(arr8, 1), 1) = arr8
Sheets("Вывод").Range("P3").Resize(UBound(arr9, 1), 1) = arr9
Sheets("Вывод").Range("E3").Resize(UBound(arr10, 1), 1) = arr10
Sheets("Вывод").Range("K3").Resize(UBound(arr11, 1), 1) = arr11
Sheets("Вывод").Range("Q3").Resize(UBound(arr12, 1), 1) = arr12
Sheets("Вывод").Range("B3").Resize(UBound(arr13, 1), 1) = arr13
Sheets("Вывод").Range("H3").Resize(UBound(arr14, 1), 1) = arr14
Sheets("Вывод").Range("N3").Resize(UBound(arr15, 1), 1) = arr15
End Sub
|