Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отдельный вывод ячеек с ключевым словом. (Формулы/Formulas)
Отдельный вывод ячеек с ключевым словом.
yukiyui Дата: Среда, 08.02.2023, 13:56 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

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

Благодарю.

Автор - yukiyui
Дата добавления - 08.02.2023 в 13:56
yukiyui Дата: Среда, 08.02.2023, 14:19 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - yukiyui
Дата добавления - 08.02.2023 в 14:19
Serge_007 Дата: Среда, 08.02.2023, 16:01 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

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
 
Ответить
СообщениеЗдравствуйте

Для книг:
[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]

Автор - Serge_007
Дата добавления - 08.02.2023 в 16:01
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отдельный вывод ячеек с ключевым словом. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!