Excel 2013 | |||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|
A | B | C | D | E | F | G | H | I | J | K | |||
1 | min_ab001 | min_ab002 | min_ab003 | min_ab004 | min_ab005 | min_ab006 | |||||||
2 | max_ab001 | max_ab002 | max_ab003 | max_ab004 | max_ab005 | max_ab006 | |||||||
3 | |||||||||||||
4 | |||||||||||||
5 | min_ab001 | max_ab001 | min_ab002 | max_ab002 | min_ab003 | max_ab003 | min_ab004 | max_ab004 | min_ab005 | max_ab005 | min_ab006 | ||
Sheet2 |
Sub aaa()
Dim a&, i&, j&, tbl1
a = Cells(1, Columns.Count).End(xlToLeft).Column
tbl1 = Range(Cells(1, 1), Cells(2, a))
Rows("1:2").ClearContents
For i = 1 To a
For j = 1 To 2
x = x + 1
Cells(1, x).Value = tbl1(j, i)
Next j
Next i
End Sub
Worksheet Formulas
Cell Formula A5 =INDEX($A$1:$F$2,MOD(COLUMNS($A5:A5)-1,2)+1,INT((COLUMNS($A5:A5)-1)/2)+1)
<thead>
</thead><tbody>
</tbody>
and drag across
Excel 2013
A B C D E F G H I J K 1 min_ab001 min_ab002 min_ab003 min_ab004 min_ab005 min_ab006 2 max_ab001 max_ab002 max_ab003 max_ab004 max_ab005 max_ab006 3 4 5 min_ab001 max_ab001 min_ab002 max_ab002 min_ab003 max_ab003 min_ab004 max_ab004 min_ab005 max_ab005 min_ab006
<colgroup><col style="width: 25pxpx"><col><col><col><col><col><col><col><col><col><col><col></colgroup><thead>
</thead><tbody>
</tbody>Sheet2
Hi.
=INDEX($A$1:$G$2,1+ISEVEN(COLUMNS($A:A)),EVEN(COLUMNS($A:A))/2)
Copy to the right as required.
Regards
Very Quick help. It is working. Thank you very much @VBA GeekA2Code:=index($a$9:$b$16,int((columns($a2:a2)-1)/2)+1,mod(columns($a2:a2)-1,2)+1)