Columns("Y:Z").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("X:X").Select
Selection.TextToColumns Destination:=Range("X1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=".", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Columns("Z:Z").Select
'заменить значение конечных ячеек? КАК СДЕЛАТЬ, ЧТОБЫ "ОК" САМА НАЖИМАЛАСЬ?
'
Range("Z2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<1000,RC[-1]*10000,IF(RC[-1]<10000,RC[-1]*1000,IF(RC[-1]<100000,RC[-1]*100,IF(RC[-1]<1000000,RC[-1]*10,RC[-1]))))"
Range("Z2").Select
Selection.AutoFill Destination:=Range("Z2:Z722")
А ВСЕ ТАКИ, ДОЛЖЕН БЫТЬ КАКОЙ НИБУДЬ БОЛЕЕ ПРИЛИЧНЫЙ ВАРИАНТ?...