как округлить числа во всём столбце(2500 ячеек)?

[Danatos]

Люди, пожалуйста,как округлить числа во всём столбце(2500 ячеек)?

[alex_r]

Данный макрос раундит все ячейки в выделении. Правда только формулы, но думаю не составит труда его переделать и под числа

Sub Round_all()
Dim myStr As String
Dim cel As Range
For Each cel In Selection
If cel.HasFormula = True Then
If Not cel.Formula Like "=ROUND(*" Then
myStr = Right(cel.Formula, Len(cel.Formula) - 1)
cel.Value = "=ROUND(" & myStr & ",0)"
End If
End If
Next
End Sub

[SAS888]

Чтобы не перебирать все подряд ячейки в выделенном диапазоне, я бы сделал так:

Sub RoundAll()
    On Error Resume Next
    For Each Cell In Selection.Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
        Cell.Value = Application.Round(Cell.Value, 0)
    Next
End Sub

Здесь On Error Resume Next - на случай, если в выделенном диапазоне нет ячеек, содержащих числа.

[alex_r]

Под поставленную задачу такой вариант конечно лучше. Но он пропускает все формулы

[SAS888]

Но он пропускает все формулы

Да. Безусловно. А автору нужно оставлять формулы в ячейках? Если нужно, то добавлять в формулу округление (например, как Вы предлагаете) все равно рациональнее методом SpecialCells, и перебирать только ячейки с формулами. А если не требуется сохранять (и модернизировать) формулы, то первой строкой предлагаемого мной макроса нужно добавить

Selection.Value = Selection.Value

Тем самым "убить" все формулы, сохранив только значения ячеек.

[Danatos]

у меня русский EXCEL! поэтому Ваши ответы не помогли. И ещё я новичок по EXCEL. Помогите! Растолкуйте более понятно!!!

[IgorGO]

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

[alex_r]

Это были макросы и, если я не ошибаюсь, они во всех версиях одинаковые. Для того, что б им воспользоваться, нужно нажать alt+F11, откроется вижуал бейсик эдитор, и вставь вышеприведенный код - для Вашего случая можно его вставить в "Лист1" например. Потом в екселе, нужно нажать alt+F8, и из списка выбрать нужный макрос.

[Danatos]

Так мне не подходит. Надо , чтобы все числа в ячейках округлились до кратного 5

[Danatos]

нажал alt+F11 , но там темное поле и ничего не вставляется. Что делать?