вопрос по excel (макрос) - осилил сам
For i = 1 To 25000
Cells(2 * i - 1, 3).Activate
ActiveCell.FormulaR1C1 = Cells(i, 1).Value
Next i
For i = 1 To 25000
Cells(2 * i, 3).Activate
ActiveCell.FormulaR1C1 = Cells(i, 1).Value
Next i
дождешься тут от вас...
![](/images/graemlins/wink.gif)
Оставить комментарий
mudvaynefan
как написать макрос который из столбца abcdef.. получает столбец aabbccddeeff..?