Преобразовать в общий формат

[amadeus017]

Доброго времени суток, уважаемые форумчане!

Возникла проблема с преобразованием граф в общий, либо в числовой формат. Делать это каждый раз вручную (выделяя нужные строки в графе), очень долго. Выделить столбик целиком и преобразовать его через вкладку "данные" - "Текст по столбцам" ... "общий" - "Готово" не получается, выдает ошибку, так как есть объединенные ячейки.
Нашел на форуме макрос, но и он не помогает (суммы в преобразованном столбце, не суммируются)

Sub m_1()
Dim oCell As Range
Dim LastRow As Long
Columns("A").NumberFormat = "General"
LastRow = Cells.SpecialCells(xlCellTypeLastCe ll).Row
For Each oCell In Range("A1:" & "A" & LastRow)
oCell.Errors(xlNumberAsText).Ignore = True
Next oCell
End Sub

(в коде менял графу "A" на графу "S", в которой формула "промежуточных итогов"

Как можно преобразовать графы с "Q" по "V", чтобы подставив формулу "промежуточные итоги", суммировались бы данные.

[kuklp]

Не нашел я в примере ни сумм, ни промитогов, ни ОЯ. Ваши проблемы. Для примера:

[q16:v17].FormulaLocal = [q16:v17].FormulaLocal

[amadeus017]

Сообщение от kuklp

Для примера:

[q16:v17].FormulaLocal = [q16:v17].FormulaLocal

А как его подставить? Я так то бухгалтер, а не программист и макросы могу написать, разе что только "рекордером"

[kuklp]

Sub www()
  [q16:v17].FormulaLocal = [q16:v17].FormulaLocal
End Sub

[amadeus017]

Сообщение от kuklp

Sub www()
  [q16:v17].FormulaLocal = [q16:v17].FormulaLocal
End Sub

Круто!!!
Все заработало!
Большое спасибо!