Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

поиск данных в листах и копирование их в отдельные листы

Автор mike, 23.01.2013, 18:07

« назад - далее »

mike

Есть файл который обновляется каждый день. В нём есть колонка U.
Нужен макрос, который бы искал по данной колонке определённые слова из листа 0, и вытаскивал из всех листов все строки которые содержат данное слово и создавал новые листы с уже скопированными данными. Т.е. отдельный лист со словом морков, перец, груш, яблок и т.д. В колонке U может быть как яблоки так и яблоко, груши, груша, поэтому копировать те строки в которых есть сочетание яблок, груш...

mike

#1
На форуме нашёл такой код, он частично делает то что нужно, т.е. ищет в определённом столбце нужное слово, и копирует на новый лист.

Option Explicit
Sub bb()
Dim i&, j&, c As Range
Worksheets.Add before:=Sheets(1)
For i = 2 To Worksheets.Count
    For Each c In Worksheets(i).UsedRange.Columns(22).Cells
'1 - "определённый столбец"
        If c = "перец" Then
            j = j + 1
            c.EntireRow.Copy Cells(j, 1)
        End If
    Next
Next

Что нужно в нём изменить чтобы он брал данные с определённого листа (Лист0) и определённого массива $A$1:$A$100 и для каждой ячейки создавал новый файл?