Автоматическое преобразование текста в число в столбцах

[Ppaa]

Здравствуйте!

В результате кривого импорта из одной системы в Excel получается таблица, в которой все числа преобразованы в текст, в результате ни одна формула не работает.

Можно ли в Excel 2007 преобразовать 2 рядом стоящих столбца чисел из текста в числа с помощью какой-либо функции или макроса, без использования ручного выделения столбцов?

Изменение формата ячеек в числовой не помогает.

[Hugo121]

Запишите рекордером процедуру выделения поочерёдно этих столбцов и "текст по столбцам - готово".
Будет без использования ручного выделения столбцов

[Ppaa]

Это я уже пробовал, но макрос записался неправильно.

Вместо выделения диапазона ячеек L15:M1654 (последний адрес всегда меняется)
почему-то выделился диапазон, указанный в тексте макроса
А вместо преобразования в текст - скроллинг.
Sub Ìàêðîñ3()
'
' Ìàêðîñ3 Ìàêðîñ
'
' Ñî÷åòàíèå êëàâèø: Ctrl+j
'
Range("L15:M15").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.ScrollRow = 1645
ActiveWindow.ScrollRow = 1624
ActiveWindow.ScrollRow = 1557
ActiveWindow.ScrollRow = 1426
ActiveWindow.ScrollRow = 1220
ActiveWindow.ScrollRow = 885
ActiveWindow.ScrollRow = 633
ActiveWindow.ScrollRow = 413
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 1
End Sub

[Hugo121]

Я говорил "поочерёдно" - т.е. выделили один столбец, преобразовали, выделили второй - преобразовали...

[Ppaa]

Аналогично, скроллинг, но не преобразование.

Sub Ìàêðîñ4()
'
' Ìàêðîñ4 Ìàêðîñ
'
' Ñî÷åòàíèå êëàâèø: Ctrl+k
'
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.ScrollRow = 1645
ActiveWindow.ScrollRow = 1624
ActiveWindow.ScrollRow = 1578
ActiveWindow.ScrollRow = 1399
ActiveWindow.ScrollRow = 1179
ActiveWindow.ScrollRow = 874
ActiveWindow.ScrollRow = 692
ActiveWindow.ScrollRow = 569
ActiveWindow.ScrollRow = 440
ActiveWindow.ScrollRow = 352
ActiveWindow.ScrollRow = 306
ActiveWindow.ScrollRow = 258
ActiveWindow.ScrollRow = 237
ActiveWindow.ScrollRow = 213
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 167
ActiveWindow.ScrollRow = 143
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 1
Range("M15").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.ScrollRow = 1640
ActiveWindow.ScrollRow = 1602
ActiveWindow.ScrollRow = 1503
ActiveWindow.ScrollRow = 1348
ActiveWindow.ScrollRow = 1161
ActiveWindow.ScrollRow = 973
ActiveWindow.ScrollRow = 719
ActiveWindow.ScrollRow = 550
ActiveWindow.ScrollRow = 413
ActiveWindow.ScrollRow = 271
ActiveWindow.ScrollRow = 175
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 1
End Sub

[Hugo121]

Вот так нужно записывать:

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 05.09.2012 by Hugo
'

'
    Columns("L:L").Select
    Selection.TextToColumns Destination:=Range("L1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
End Sub

Ну и думаю можно это преобразовать в такое:

Sub Macro3()
    Columns("M:M").TextToColumns
End Sub

Но не испытывал - не на чем...
P.S. Испытал - работает.

[Ppaa]

Выяснилось, что в заголовке рабочей таблицы есть объединенные ячейки, поэтому с наскока она не работает.
Прикладываю пример. Преобразовывать нужно в диапазоне L1:M1654

[Hugo121]

Ну и делайте тогда вручную - можно текст по столбцам, можно через спецвставку умножать на 1.

Или

Sub Macro3()
    Range("L15:L1654").TextToColumns
    Range("M15:M1654").TextToColumns
End Sub

[Ppaa]

Спасибо, работает!