Range("F:F,H:H,J:J,L:L").Select
Sub test1()<br /> <br /> Dim i As Integer<br /> Dim j As Integer<br /> Dim a As Double<br /> <br /> <br /> For i = 1 To 10000 ' counter, from 1 to 672<br /> j = 4 * i - 3 ' steps<br /> Sheets("sheet1").Select 'Sheet you get the data from<br /> Cells(1, j).Select<br /> a = Selection<br /> <br /> Sheets("sheet2").Select 'Sheet you want to copy the date to<br /> Cells(1, i).Value = a<br /> <br /> Next i<br /> <br /> <br /> End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)