1. Напишите программу на языке VBA, которая будет работать со столбцом целых чисел. Выведите сумму всех чисел, которые

Звездопад_Шаман

39

vba

Sub Сумма_меньше_100()

    Dim сумма As Integer

    Dim ячейка As Range

    

    "Начальное значение суммы равно нулю

    сумма = 0

    

    "Перебираем каждую ячейку в столбце A, начиная со второй строки

    For Each ячейка In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)

        "Проверяем, что значение ячейки является целым числом и меньше 100

        If IsNumeric(ячейка.Value) And ячейка.Value < 100 Then

            "Добавляем значение ячейки к сумме

            сумма = сумма + ячейка.Value

        End If

    Next ячейка

    

    "Выводим сумму в последней ячейке столбца A

    Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = сумма

End Sub

vba

Sub Удалить_короткие_тексты()

    Dim ячейка As Range

    

    "Перебираем каждую ячейку в столбце A, начиная со второй строки

    For Each ячейка In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)

        "Проверяем, что значение ячейки является текстом и состоит из одного символа

        If Len(ячейка.Value) = 1 And Not IsNumeric(ячейка.Value) Then

            "Удаляем всю информацию из ячейки

            ячейка.ClearContents

        End If

    Next ячейка

End Sub