ytjjjtyj
07-10-2019, 07:11 AM
Hello, so I have 6 variants each with 100 rows but different amount of columns.
I want to combine all my variants into one single range- adding the variants vertically down,one after the other, leaving a space between each variant as it comes into my range. I do not want to add it in the range side by side.
I tried this but it didn't work. Please let me know if you can help me.
Dim vntAllvariants As Variant
vntAllvariants = Application.index( _
Union(vntData1, vntData2,vntData3,vntData4,vntData5,vntData6), _
Evaluate("row(1:" & vntData1.Rows.Count & ")"), _
1, _
Array(1, 2,3,4,5,6))
Range("A4:EE1000").value = dat4
** example: vnt1 =
1,2,3,4
5,6,7,8
vnt2=
2,3,4,5
4,6,7,8
range("A4:EE1000") =
1,2,3,4
5,6,7,8
2,3,4,5
4,6,7,8
I want to combine all my variants into one single range- adding the variants vertically down,one after the other, leaving a space between each variant as it comes into my range. I do not want to add it in the range side by side.
I tried this but it didn't work. Please let me know if you can help me.
Dim vntAllvariants As Variant
vntAllvariants = Application.index( _
Union(vntData1, vntData2,vntData3,vntData4,vntData5,vntData6), _
Evaluate("row(1:" & vntData1.Rows.Count & ")"), _
1, _
Array(1, 2,3,4,5,6))
Range("A4:EE1000").value = dat4
** example: vnt1 =
1,2,3,4
5,6,7,8
vnt2=
2,3,4,5
4,6,7,8
range("A4:EE1000") =
1,2,3,4
5,6,7,8
2,3,4,5
4,6,7,8