Всем привет it-шники! Не всегда в Excel есть функции которые тебе нужны, например: Удаление строк на всем листе по искомому значению. С этой ситуацией можем справиться, создать макрос в Excel. Для этого Вам потребуется небольшие знания VBA (Visual Basic for Applications) или же приведенный код ниже скопировать и вставить в редактор кода.
К сожалению, теперь нельзя вставить код для просмотра в Дзене, но можно перейти на GitHub и там скопировать полностью код. Вот ссылка: Ниже представлю описание данного кода, пользуйтесь на здоровье. Описание: Таким образом, после выполнения этого макроса, все строки, содержащие текст "Списание на расходы", будут удалены на активном листе в Excel. Я it-шник
Всем привет it-шники! Не всегда в Excel есть функции которые тебе нужны, например: Удаление строк на всем листе по искомому значению. С этой ситуацией можем справиться, создать макрос в Excel.
Для этого Вам потребуется небольшие знания VBA (Visual Basic for Applications) или же приведенный код ниже скопировать и вставить в редактор кода.
К сожалению, теперь нельзя вставить код для просмотра в Дзене, но можно перейти на GitHub и там скопировать полностью код.
Вот ссылка:
Ниже представлю описание данного кода, пользуйтесь на здоровье.
Описание:
- Sub Удалить_Списание_На_Расходы(): Объявление подпрограммы с именем "Удалить_Списание_На_Расходы".
- Dim rng As Range: Объявление переменной "rng" типа "Range" для хранения диапазона ячеек.
- Dim cell As Range: Объявление переменной "cell" типа "Range" для хранения каждой отдельной ячейки.
- Dim searchText As String: Объявление переменной "searchText" типа "String" для хранения текста, который нужно удалить.
- searchText = "Списание на расходы": Установка значения переменной "searchText" равным "Списание на расходы". Этот текст будет использоваться для поиска и удаления.
- Set rng = ActiveSheet.UsedRange: Определение используемой области на активном листе и сохранение ее в переменную "rng".
- Application.ScreenUpdating = False: Отключение обновления экрана приложения Excel для ускорения выполнения макроса.
- Цикл For Each cell In rng.Cells перебирает каждую ячейку в диапазоне "rng".
- If InStr(1, cell.Value, searchText, vbTextCompare) > 0 Then: Проверка, содержит ли ячейка искомый текст. Если условие выполняется (текст найден), то выполняются следующие инструкции.
- cell.EntireRow.Delete: Удаление всей строки, содержащей найденный текст.
- Next cell: Переход к следующей ячейке и повторение проверки и удаления до тех пор, пока не будут проверены все ячейки в диапазоне.
- Application.ScreenUpdating = True: Включение обратно обновления экрана для отображения изменений.
Таким образом, после выполнения этого макроса, все строки, содержащие текст "Списание на расходы", будут удалены на активном листе в Excel.