деление в массиве ячеек

[Чарлик]

подскажите плиз мне надо разделить все числа в ячейках как сделать ето сразу во всех?

[Pavel55]

Выделите диапазон ячеек и запустите этот макрос

Sub Разделить()
Dim Rng As Range
Dim iCell As Range
Dim iNum As Variant
    
    Set Rng = Selection
    If Rng.Cells.Count = 1 Then
        MsgBox "Выделите диапазон ячеек, которые нужно разделить!", 48, "Ошибка"
        Exit Sub
    End If
    iNum = Application.InputBox("Введите число, на которое необходимо разделить указанные ячейки", "Делитель", , , , , , 2)
    If iNum = "" Or iNum = False Then Exit Sub
    iNum = Replace(iNum, ".", ",")
    iNum = CSng(iNum)
    
    For Each iCell In Rng
        iCell = iCell / iNum
    Next iCell
    MsgBox "Деление завершено. Проверьте результат!", 64, "Конец"
End Sub

[Чарлик]

чет я не понял че вы мне предложили ) задача такая надо чтобы каждое число в каждой ячейке разделилось на 4 допустим подскажите формулку или как по пороше сделать без програмерского раздува )))

[SAS888]

Например, так:
Вставьте столбец из чисел, на которые нужно разделить заданный столбец (например, все 4-ки). Затем, выделить этот столбец, нажать "копировать", затем выделить первую ячейку столбца с делимыми, через правую кнопку - "специальная вставка", указать "разделить". Готово.

[Чарлик]

SAS888 спасибо большое очень просто и быстро

[Pavel55]

Чарлик, вы не сказали, какими способами хотите решить данную проблему, а я "по инерции" написал макрос )

SAS888, я не понял из вашего сообщения вот эту строку

"Вставьте столбец из чисел, на которые нужно разделить заданный столбец (например, все 4-ки)"

Зачем целый столбец? Можно лишь в одну ячейку вставить цифру 4, скопировать эту ячейку, выделить столбец, который необходимо разделить и воспользоваться Специальная вставка - Разделить