Сумма колонки Е

[Romuald]

Еще раз добрый день!
Подскажите, пожалуйста как сделать сумму колонки Е ?

[SAS888]

Например, так:

MsgBox Application.Sum(Range([E2], Cells(Rows.Count, "E").End(xlUp)))

[Romuald]

SAS888! спасибо!
вопрос я задал немного не правильно ....
Я пытаюсь вычислить сумму всей колонки , но она не суммирует большие цифры (формат вроде одинаковый)

[SAS888]

Формат ячеек у Вас одинаковый, а формат данных в этих ячейках разный.
Что означает, например, "-2.661,76" ? Excel воспринимает это как текст. Ввиду того, что у нас с Вами могут быть разные национальные настройки (разделитель целой и дробной части, разделитель групп разрядов и т.п.), то подскажите, что означает вышеупомянутое значение, тогда сделаем.

[Romuald]

Это у нас в программе SAP выделяют тысячи .Т.е. 1.234,44 - Это.. одна тысяча двести тридцать четыре рубля сорок четыре копейки . Хотя до тысячи -копейки разделены точкой. Во как

[Romuald]

Минус перед числом- товар не довезли на такую сумму согласно договора
Плюс- товар пришел на склад
Но я выбрал пока для отчета данные только с минусом

[SAS888]

Попробуйте так:

Sub Main()
    Dim x As Range: Application.ScreenUpdating = False
    Set x = Range([E2], Cells(Rows.Count, "E").End(xlUp))
    For Each Cell In x
        Cell.Replace What:=".", Replacement:="": Cell.Value = CDbl(Cell.Value)
    Next
    Application.ScreenUpdating = True: MsgBox Application.Sum(x)
End Sub

[Romuald]

Ругается на : Cell.Value = CDbl(Cell.Value)

[SAS888]

Возможно 2 варианта.
1. После замены точки на "пустоту", получается значение, которое невозможно преобразовать в число (например текст или "пусто").
2. Замена точки не помогает всвязи с региональными настройками.
Попробуйте убавить количество строк в столбце "E" и поэкспериментировать с различными значениями. Прикрепите файл с данными, на которые "ругается" Excel. В предыдущем Вашем вложении с моими настройками все проходит.

[Romuald]

Вот что получается у меня с этим-же файлом .
Макрос запускаю, дебаг, и во какие данные стали в первых одиннадцати строчках