Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
Sergey_B
163 / 163 / 57
Регистрация: 08.01.2013
Сообщений: 335
1

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

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

Доброго времени суток. Подскажите пожалуйста по такой проблеме. Есть документ Excel (несколько листов), необходимо написать макрос, который выводил бы все строки из всего документа содержащие в себе искомое слово в отдельный лист. С VBA не знаком, а попросили сделать побыстрее, надеюсь на вашу помощь.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.04.2013, 09:37
Ответы с готовыми решениями:

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

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

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

Найти количество элементов массива, содержащих определенное значение
Добрый день! Короткий пример Имеется 3 элемента массива, содержащие...

Как сделать макрос который находит определенное слово
как сделайть макрос который находит определнное слово во всем тексте ворд, и...

3
KoGG
5274 / 1347 / 320
Регистрация: 23.12.2010
Сообщений: 2,019
Записей в блоге: 1
30.04.2013, 10:35 2
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
Sergey_B
163 / 163 / 57
Регистрация: 08.01.2013
Сообщений: 335
30.04.2013, 14:06  [ТС] 3
Спасибо

Добавлено через 3 часа 20 минут
А как изменить код, чтобы искал не по всем столбцам, а например по 1 и 3 (ну или хотя бы по одному). Можно так сделать?
0
KoGG
5274 / 1347 / 320
Регистрация: 23.12.2010
Сообщений: 2,019
Записей в блоге: 1
30.04.2013, 14:57 4
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.04.2013, 14:57

Удаление всех фигур, в тексте которых содержится определенное слово
Добрый день, форумчане. Помогите решить проблему. На листе есть несколько...

Как удалить строку в случае если в ней содержится определенное слово?
Как удалить строку в случае если в ней содержится определенное слово? Если...

Вывод только того текста, который содержит в себе определенное слово
Доброго времени суток, всем форумчанам. Есть серьезный вопрос. Значит у...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru