Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Col(1) = 9
- Col(2) = 11
- Col(3) = 13
- Col(4) = 15
- Col(5) = 17
- Col(6) = 19
- Col(7) = 21
- Col(8) = 23
- Col(9) = 25
- Col(10) = 27
- Col(11) = 29
- Dim myArray() As Variant, myArray2() As Variant
- Dim DataRange As Range
- Dim cell As Range
- Dim x As Long
- For i = 1 To 11
- Set DataRange = Worksheets(12).UsedRange.Columns(Col(i))
- For Each cell In DataRange.Cells
- ReDim Preserve myArray(x)
- myArray(x) = cell.Value
- x = x + 1
- Next cell
- Next i
Add Comment
Please, Sign In to add comment