[megaloman]

Как начальный вариант, если столбец А, данные начинаются с 1 клетки, то VBS-скрипт:

Код:

fXLS = "P:\Delete\dddddd.xls"

ind = Array(1, 4, 5, 6, 2, 3)

Set XL = CreateObject("Excel.Application")
XL.Visible = True
XL.Workbooks.Open fXLS

i = 0
Do While True

    Stroka = XL.Range("A1").Offset(i, 0)
    If Stroka = "" Then Exit Do
    Mas = Split(Stroka, ",")
    
    Stroka = CStr(Mas(ind(0) - 1))
    For j = 1 To 5
        Stroka = Stroka + "," + CStr(Mas(ind(j) - 1))
    Next

    XL.Range("A1").Offset(i, 0).NumberFormat = "@"    
    XL.Range("A1").Offset(i, 0) = Stroka
    i = i + 1

Loop
XL.ActiveWorkbook.Save
XL.Quit

Путь к файлу пропишИте свой

[Serg2010]

гениально.