Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/15: Рейтинг темы: голосов - 15, средняя оценка - 4.80
174 / 174 / 57
Регистрация: 08.01.2013
Сообщений: 335

Поиск строк содержащих определенное слово

30.04.2013, 09:37. Показов 3324. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток. Подскажите пожалуйста по такой проблеме. Есть документ Excel (несколько листов), необходимо написать макрос, который выводил бы все строки из всего документа содержащие в себе искомое слово в отдельный лист. С VBA не знаком, а попросили сделать побыстрее, надеюсь на вашу помощь.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
30.04.2013, 09:37
Ответы с готовыми решениями:

Как доработать макрос для копирования строк из файлов, содержащих определенное значение
Подскажите пожалуйста, следующее: есть макрос для копирования строк из файлов, содержащих определенное значение: Sub...

Вывод всех строк,содержащих введенное слово
У меня есть форма и на ней есть 2 текстбокса. В один я ввожу строку для поиска,а во вторую выводится сообщение о содержании данной строки в...

Поиск одинаковых значений в столбце и копирование всех строк, содержащих эти значения
Всем доброго утра/дня/вечера! :) Может кто поможет мне,пожалуйста..А то я теряюсь пока еще в таких вещах:( Как осуществить в листе...

3
 Аватар для KoGG
5646 / 1628 / 418
Регистрация: 23.12.2010
Сообщений: 2,450
Записей в блоге: 1
30.04.2013, 10:35
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Выборка_строк()
  Dim i&, k&
  Dim ws As Worksheet, Otchot As Worksheet
  Dim RezPoiska As Range
  Dim Iskomoe$
  Iskomoe = "ZZZ"
  ' Если искомое слово надо вводить через диалог, то расскоментируйте следующую строку
  'Iskomoe = InputBox("Введите искомое слово")
  With Application
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
    With ActiveWorkbook
        Set Otchot = .Worksheets.Add(.Worksheets(1))
        Otchot.Name = "Найдено"
        For Each ws In .Worksheets
          If Not ws Is Otchot Then
            For i = 1 To ws.Rows.Count
                Set RezPoiska = ws.Rows(i).Find(What:=Iskomoe, LookIn:=xlFormulas, _
                    LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
                If Not RezPoiska Is Nothing Then
                    k = k + 1
                    ws.Rows(i).Copy Otchot.Rows(k)
                End If
            Next
          End If
        Next ws
    End With
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
  End With
End Sub
1
174 / 174 / 57
Регистрация: 08.01.2013
Сообщений: 335
30.04.2013, 14:06  [ТС]
Спасибо

Добавлено через 3 часа 20 минут
А как изменить код, чтобы искал не по всем столбцам, а например по 1 и 3 (ну или хотя бы по одному). Можно так сделать?
0
 Аватар для KoGG
5646 / 1628 / 418
Регистрация: 23.12.2010
Сообщений: 2,450
Записей в блоге: 1
30.04.2013, 14:57
C 1-го по 3-ий столбец:
Visual Basic
1
2
3
Set RezPoiska = ws.Range(ws.Cells(i,1), ws.Cells(i,3)).Find(What:=Iskomoe, LookIn:=xlFormulas, _
                    LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
30.04.2013, 14:57
Помогаю со студенческими работами здесь

Посчитать количество строк содержащих определенное слово
Есть текстовый файл (по сути лог фтп сервера) содержащий список файлов скачанных с фтп. Как с помощью PHP посчитать количество строк в...

Поиск на всех дисках файлов, содержащих определённое слово, и копирование найденых в определённую папку
Добрый день. Помогите пожалуйста создать бат файл дляпоиска файлов, который содержат определенное слово, например "Петя" на всех...

Удаление частей текста, НЕ содержащих определенное слово
Имеется неск.десятков тыс. статей (словарь). Через Найти\Заменить я могу привести все статьи к тому, что они все начинаются с (например)...

Копирование из одного каталога в другой файлов, содержащих определённое слово
Диски есть файлы, с помощью батника надо искать определенной слова в файлах и все файлы содержащий этот слова скопировать на другой...

Ввод массива строк и поиск среди них строк, содержащих заданную подстроку
Необходимо сделать вывод каждой строки, содержащей подстроку, а не только первой using System; using System.Collections.Generic; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru