Отдельный вывод ячеек с ключевым словом.

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Отдельный вывод ячеек с ключевым словом. - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Отдельный вывод ячеек с ключевым словом. (Формулы/Formulas)

Отдельный вывод ячеек с ключевым словом.

yukiyui

Дата: Среда, 08.02.2023, 13:56 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте, я чайничек, поэтому не особо понимаю как реализовать идею.

Имеется таблица, в ячейках определенный текст. Есть возможность автоматизировать процесс переноса ячеек на другой лист, которые содержат определенное слово? Например, мне нужно перенести все ячейки на другой лист, которые содержат слово "книга".

Благодарю.

Ответить

yukiyui

Дата: Среда, 08.02.2023, 14:19 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

UPD: файл.

К сообщению приложен файл: example.xlsx (9.6 Kb)

Ответить

Serge_007

Дата: Среда, 08.02.2023, 16:01 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Здравствуйте

Для книг:
[vba]

Код

Sub yukiyui()
Dim rRange As Range
Dim iRow&
    For Each rRange In Sheets("1").Range("a2:c6")
        If rRange Like "*книга*" Then
        iRow = Application.CountA(Sheets("2").Range("a1:a6")) + 1
            Sheets("2").Cells(iRow, 1) = rRange
        End If
    Next rRange
End Sub

[/vba]

К сообщению приложен файл: 20230208_yukiyu.xls (44.0 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Отдельный вывод ячеек с ключевым словом. (Формулы/Formulas)

Страница 1 из 1
1