Поиск по названиям вкладок в excel

Поиск в программе Microsoft Excel

В документах Microsoft Excel, которые состоят из большого количества полей, часто требуется найти определенные данные, наименование строки, и т.д. Очень неудобно, когда приходится просматривать огромное количество строк, чтобы найти нужное слово или выражение. Сэкономить время и нервы поможет встроенный поиск Microsoft Excel. Давайте разберемся, как он работает, и как им пользоваться.

Поисковая функция в Excel

Поисковая функция в программе Microsoft Excel предлагает возможность найти нужные текстовые или числовые значения через окно «Найти и заменить». Кроме того, в приложении имеется возможность расширенного поиска данных.

Способ 1: простой поиск

Простой поиск данных в программе Excel позволяет найти все ячейки, в которых содержится введенный в поисковое окно набор символов (буквы, цифры, слова, и т.д.) без учета регистра.

1. Находясь во вкладке «Главная», кликаем по кнопке «Найти и выделить», которая расположена на ленте в блоке инструментов «Редактирование». В появившемся меню выбираем пункт «Найти…». Вместо этих действий можно просто набрать на клавиатуре сочетание клавиш Ctrl+F.

После того, как вы перешли по соответствующим пунктам на ленте, или нажали комбинацию «горячих клавиш», откроется окно «Найти и заменить» во вкладке «Найти». Она нам и нужна. В поле «Найти» вводим слово, символы, или выражения, по которым собираемся производить поиск. Жмем на кнопку «Найти далее», или на кнопку «Найти всё».

При нажатии на кнопку «Найти далее» мы перемещаемся к первой же ячейке, где содержатся введенные группы символов. Сама ячейка становится активной.

Поиск и выдача результатов производится построчно. Сначала обрабатываются все ячейки первой строки. Если данные отвечающие условию найдены не были, программа начинает искать во второй строке, и так далее, пока не отыщет удовлетворительный результат.

Поисковые символы не обязательно должны быть самостоятельными элементами. Так, если в качестве запроса будет задано выражение «прав», то в выдаче будут представлены все ячейки, которые содержат данный последовательный набор символов даже внутри слова. Например, релевантным запросу в этом случае будет считаться слово «Направо». Если вы зададите в поисковике цифру «1», то в ответ попадут ячейки, которые содержат, например, число «516».

Для того, чтобы перейти к следующему результату, опять нажмите кнопку «Найти далее».

Так можно продолжать до тех, пор, пока отображение результатов не начнется по новому кругу.

В случае, если при запуске поисковой процедуры вы нажмете на кнопку «Найти все», все результаты выдачи будут представлены в виде списка в нижней части поискового окна. В этом списке находятся информация о содержимом ячеек с данными, удовлетворяющими запросу поиска, указан их адрес расположения, а также лист и книга, к которым они относятся. Для того, чтобы перейти к любому из результатов выдачи, достаточно просто кликнуть по нему левой кнопкой мыши. После этого курсор перейдет на ту ячейку Excel, по записи которой пользователь сделал щелчок.

Способ 2: поиск по указанному интервалу ячеек

Если у вас довольно масштабная таблица, то в таком случае не всегда удобно производить поиск по всему листу, ведь в поисковой выдаче может оказаться огромное количество результатов, которые в конкретном случае не нужны. Существует способ ограничить поисковое пространство только определенным диапазоном ячеек.

Выделяем область ячеек, в которой хотим произвести поиск.

Набираем на клавиатуре комбинацию клавиш Ctrl+F, после чего запуститься знакомое нам уже окно «Найти и заменить». Дальнейшие действия точно такие же, что и при предыдущем способе. Единственное отличие будет состоять в том, что поиск выполняется только в указанном интервале ячеек.

Способ 3: Расширенный поиск

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

К тому же, в выдачу может попасть не только содержимое конкретной ячейки, но и адрес элемента, на который она ссылается. Например, в ячейке E2 содержится формула, которая представляет собой сумму ячеек A4 и C3. Эта сумма равна 10, и именно это число отображается в ячейке E2. Но, если мы зададим в поиске цифру «4», то среди результатов выдачи будет все та же ячейка E2. Как такое могло получиться? Просто в ячейке E2 в качестве формулы содержится адрес на ячейку A4, который как раз включает в себя искомую цифру 4.

Но, как отсечь такие, и другие заведомо неприемлемые результаты выдачи поиска? Именно для этих целей существует расширенный поиск Excel.

После открытия окна «Найти и заменить» любым вышеописанным способом, жмем на кнопку «Параметры».

В окне появляется целый ряд дополнительных инструментов для управления поиском. По умолчанию все эти инструменты находятся в состоянии, как при обычном поиске, но при необходимости можно выполнить корректировку.

По умолчанию, функции «Учитывать регистр» и «Ячейки целиком» отключены, но, если мы поставим галочки около соответствующих пунктов, то в таком случае, при формировании результата будет учитываться введенный регистр, и точное совпадение. Если вы введете слово с маленькой буквы, то в поисковую выдачу, ячейки содержащие написание этого слова с большой буквы, как это было бы по умолчанию, уже не попадут. Кроме того, если включена функция «Ячейки целиком», то в выдачу будут добавляться только элементы, содержащие точное наименование. Например, если вы зададите поисковый запрос «Николаев», то ячейки, содержащие текст «Николаев А. Д.», в выдачу уже добавлены не будут.

По умолчанию, поиск производится только на активном листе Excel. Но, если параметр «Искать» вы переведете в позицию «В книге», то поиск будет производиться по всем листам открытого файла.

В параметре «Просматривать» можно изменить направление поиска. По умолчанию, как уже говорилось выше, поиск ведется по порядку построчно. Переставив переключатель в позицию «По столбцам», можно задать порядок формирования результатов выдачи, начиная с первого столбца.

В графе «Область поиска» определяется, среди каких конкретно элементов производится поиск. По умолчанию, это формулы, то есть те данные, которые при клике по ячейке отображаются в строке формул. Это может быть слово, число или ссылка на ячейку. При этом, программа, выполняя поиск, видит только ссылку, а не результат. Об этом эффекте велась речь выше. Для того, чтобы производить поиск именно по результатам, по тем данным, которые отображаются в ячейке, а не в строке формул, нужно переставить переключатель из позиции «Формулы» в позицию «Значения». Кроме того, существует возможность поиска по примечаниям. В этом случае, переключатель переставляем в позицию «Примечания».

Ещё более точно поиск можно задать, нажав на кнопку «Формат».

При этом открывается окно формата ячеек. Тут можно установить формат ячеек, которые будут участвовать в поиске. Можно устанавливать ограничения по числовому формату, по выравниванию, шрифту, границе, заливке и защите, по одному из этих параметров, или комбинируя их вместе.

Если вы хотите использовать формат какой-то конкретной ячейки, то в нижней части окна нажмите на кнопку «Использовать формат этой ячейки…».

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

После того, как формат поиска настроен, жмем на кнопку «OK».

Бывают случаи, когда нужно произвести поиск не по конкретному словосочетанию, а найти ячейки, в которых находятся поисковые слова в любом порядке, даже, если их разделяют другие слова и символы. Тогда данные слова нужно выделить с обеих сторон знаком «*». Теперь в поисковой выдаче будут отображены все ячейки, в которых находятся данные слова в любом порядке.

Как только настройки поиска установлены, следует нажать на кнопку «Найти всё» или «Найти далее», чтобы перейти к поисковой выдаче.

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

Отблагодарите автора, поделитесь статьей в социальных сетях.

ВПР с поиском по нескольким листам

ВПР по всем листам (43,0 KiB, 12 619 скачиваний)

Если необходимо найти какое-либо значение в большой таблице очень часто применяется функция ВПР. Но ВПР работает только с одной таблицей и нет никакой возможности средствами самой функции просмотреть искомое значение на нескольких листах. Если поиск необходимо осуществить только по двум листам, то можно схитрить:
=ВПР( A1 ;ЕСЛИ(ЕНД(ВПР( A1 ;Лист2!A1:B10;2;0));Лист3!A1:B10;Лист2!A1:B10);2;0)

А когда листов больше? Можно плодить ЕСЛИ. Но это во-первых совсем не наглядно и во-вторых очень непрактично, т.к. при добавлении или удалении листов придется править всю мега-формулу. Да и при работе с количеством листов более 10 есть большой шанс, что длина формулы выйдет за пределы допустимой.

Есть небольшой прием, который поможет искать значение в указанных листах. Для начала необходимо создать на листе список листов книги, в которых искать значение. В приложенном к статье примере они записаны в диапазоне $E$2:$E$5 .
=ВПР( A2 ;ДВССЫЛ(«‘»&ИНДЕКС( $E$2:$E$5 ;ПОИСКПОЗ(ИСТИНА;СЧЁТЕСЛИ(ДВССЫЛ(«‘»& $E$2:$E$5 &»‘!A1:A50″); A2 )>0;0))&»‘!A:B»);2;0)

Формула вводится в ячейку как формула массива — т.е. сочетанием клавиш Ctrl+Shift+Enter. Это очень важное условие. Если формулу не вводить в ячейку как формулу массива, то необходимого результата не получить.
Попробую кратенько описать принцип работы данной формулы.

Перед чтением дальше советую скачать пример:

ВПР по всем листам (43,0 KiB, 12 619 скачиваний)

ДВССЫЛ нам нужна для преобразования текстового представления ссылок на листы в действительные. Подробно не буду останавливаться на принципе работы ДВССЫЛ, просто приведу этапы вычислений:
СЧЁТЕСЛИ(ДВССЫЛ(«‘»& $E$2:$E$5 &»‘!A1:A50»); A2 )

В результате вычисления данного блока у нас получается массив из количества повторений искомого значения на каждом из указанных листов: СЧЁТЕСЛИ(<1;0;0;0>;A2) . Поэтому следующий блок
ПОИСКПОЗ(ИСТИНА;СЧЁТЕСЛИ(ДВССЫЛ(«‘»& $E$2:$E$5 &»‘!A1:A50»); A2 )>;0;0)
работает именно с этим:
ПОИСКПОЗ(ИСТИНА;СЧЁТЕСЛИ(<1;0;0;0>; A2 )>0;0)
Читать подробнее про СЧЁТЕСЛИ

в результате чего мы получаем позицию имени листа в массиве имен листов $E$2:$E$5 , с помощью ИНДЕКС получаем имя листа и подставляем это имя уже к ДВССЫЛ, а она в ВПР:
=ВПР( A2 ;ДВССЫЛ(«‘»&ИНДЕКС(<«Астраханьоблгаз»:»Липецкоблгаз»:»Оренбургоблгаз»:»Ростовоблгаз»>;1)&»‘!A:B»);2;0) =>
=ВПР( A2 ;ДВССЫЛ(«‘Лист2’!A:B»);2;0) =>
=ВПР( A2 ;’Лист2′!A:B;2;0)

Что нам и требовалось. Теперь если в книгу будут добавлены еще листы, то необходимо будет всего лишь дописать их к диапазону $E$2:$E$5 и при необходимости этот диапазон расширить. Так же можно задать диапазон $E$2:$E$5 как динамический и тогда необходимость в правке формулы отпадет вовсе.

Используемые в формуле величины:
A2 — ссылка на ячейку с искомым значением. Т.е. указывается то значение, которое требуется найти на листах.

$E$2:$E$5 — диапазон с именами листов, в которых требуется осуществлять поиск указанного значения ( A1 ).

Диапазон «‘!A1:A50» — это диапазон, в котором СЧЁТЕСЛИ ищет совпадения. Поэтому указывается только один столбец данных. При необходимости следует расширить или изменить. Можно указать так же «‘!A:A» , но при этом следует учитывать, что указание целого столбца может привести к значительному увеличению времени выполнения функции. Поэтому имеет смысл просто задать диапазон с запасом, например «‘!A1:A10000» .

«‘!A:B» — диапазон для аргумента ВПР — Таблица. В первом столбце этого диапазона на каждом из указанных листов ищется указанное значение ( A2 ). При нахождении возвращается значение из указанного столбца. Читать подробнее про ВПР>>

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

ВПР по всем листам (43,0 KiB, 12 619 скачиваний)

Так же можно искать по нескольким листам разных книг , а не только по нескольким листам одной книги. Для этого необходимо будет в списке листов вместе с именами листов добавить имена книг в квадратных скобках: [Книга1.xlsb]Май
[Книга1.xlsb]Июнь
[Книга2.xlsb]Май
[Книга2.xlsb]Июнь
Перечисленные книги обязательно должны быть открыты

Решил добавить простенькую функцию пользователя(UDF) для тех, кому проще «общаться» с VBA, чем с формулами. Функция ищет указанное значение во всех листах книги, в которой записана(даже в скрытых):

Function VLookUpAllSheets(vCriteria As Variant, rTable As Range, lColNum As Long, Optional iPart As Integer = 1) As Variant Dim rFndRng As Range If iPart <> 1 Then iPart = 2 For i = 1 To Worksheets.Count If Sheets(i).Name <> Application.Caller.Parent.Name Then With Sheets(i) Set rFndRng = .Range(rTable.Address).Resize(, 1).Find(vCriteria, , xlValues, iPart) If Not rFndRng Is Nothing Then VLookUpAllSheets = rFndRng.Offset(, lColNum — 1).Value Exit For End If End With End If Next i End Function

Функция попроще, чем ВПР — последний аргумент(интервальный_просмотр) выполняет несколько иные, чем в ВПР функции. Хотя полагаю немногие его используют в классическом варианте.
rTable — указывается таблица для поиска значений(как в стандартной ВПР)
vCriteria — указывается ссылка на ячейку или текстовое значение для поиска
lColNum — указывается номер столбца в таблице rTable, значение из которого необходимо вернуть — может быть ссылкой на столбец — СТОЛБЕЦ().
iPart — указывается метод просмотра. Если не указан, либо указана цифра 1, то поиск осуществляется по полному совпадению с ячейкой. Но в таком варианте допускается применение подстановочных символов * и ?. Если указано значение, отличное от 1, то совпадение будет отбираться по части вхождения. Если в vCriteria указать «при», то совпадением будет считаться и слово «прибыль»(первый буквы совпадают) и «неприятный»(в середине встречается «при»). Но в этом случае знаки * и ? будут восприниматься «как есть». Может пригодиться, если в искомом тексте присутствуют символы звездочки и вопросительного знака и надо найти совпадения, учитывая эти символы.

Статья помогла? Поделись ссылкой с друзьями!

Надстройка для поиска на всех листах книги Excel

Надстройка SearchText предназначена для поиска заданного текста в книге Excel, с выводом результатов поиска на отдельный лист.

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

В Excel 2007 и 2010 панель инструментов можно найти на вкладке «Надстройки»:

Надстройка SearchText является расширенной версией надстройки для поиска на текущем листе.

Назначение кнопок надстройки:

— поле для ввода искомого текста. Нажатие клавиши Enter запускает поиск.

— удаление листа с результатами поиска. (выполняется автоматически при повторном поиске)

— кнопки для включения (красная) и выключения (белая) режима подсветки значений, больших, чем введенное число
(число запрашивается в диалоговом окне при нажатии на красную лампочку)

или — переключатель режимов поиска
(щелкните на этой кнопке для переключения режима поиска)

При запуске поиска (вводе числа в текстовое поле, и нажатии Enter) макрос создаёт в текущем файле дополнительный лист (с названием «Результаты поиска»),
и копирует на этот лист все строки, в которых содержится заданный текст.

Выполняется поиск по частичному совпадению текста (т.е., при поиске текста 1234 будут найдены ячейки, содержащие числа 12345, 5612348 и т.д.)

На листе с результатами поиска устанавливается ширина столбцов, совпадающая с шириной столбцов исходного листа, если поиск выполняется по одному листу,
или на лист результатов добавляется дополнительный столбец, в котором для каждой найденной строки указывается, на каком из листов она была найдена:

В режиме поиска по всем листам книги Excel найденные строки группируются по названию листа-источника, заголовок каждого блока строк окрашивается в произвольный цвет.

Во время выполнения происка отображается прогресс-бар, отображающий количество найденных строк, и текущее действие (поиск или копирвоание результатов)

Как в excel сделать поиск по всем листам

Ингвар, доброго времени.

В качестве не очень изящного, но всё-таки решения могу предложить следующую формулу, которую можно протянуть по всем ячейкам Вашего примера. Вставлять в B3 на Листе1.

На первый взгляд выглядит довольно объёмно и страшно, но если разобраться — довольно проста.

Простейшая функция для поиска — ВПР. С её помощью можно найти данные по одной таблице. Что, я уверен, Вы уже с лёгкостью делаете. Если ВПР будет искать в таблице, где НЕТ того, что мы ищем (например, если искать «единицу» на «Листе3» Вашего примера), формула выдаёт ошибку Н/Д. И это свойство можно использовать.

Функция ЕСЛИОШИБКА проверяет то, что мы вводим. И если наша функция внутри ЕСЛИОШИБКИ выдает, например, Н/Д, то ЕСЛИОШИБКА выдаст нам второе значение, записанное через точку с запятой. И моя формула построена следующим образом:

= ЕСЛИОШИБКА (*искать в первой таблице* ; *если не нашли в первой таблице, ищем во второй* )

При этом внутрь условного куска *если не нашли в первой таблице, ищем во второй* можно вложить вторую ЕСЛИОШИБКА для просмотра ещё одной таблицы. Что я и сделал. Получилось:

= ЕСЛИОШИБКА (*искать в первой таблице* ; ЕСЛИОШИБКА ( *искать во второй таблице* ; *искать в третьей таблице) )

При этом таких вложений из ЕСЛИОШИБКА можно сделать не ограниченное количество.

Замечу, что важно закрепить каждую таблицу внутри ВПР долларами, прибить гвоздями так сказать, чтобы не уехала таблица при протяжке формулы вниз.

Советы и лайфхаки по работе с Excel

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

Но есть более простой способ быстро открыть нужный лист.

Щелкните правой кнопкой мыши на кнопки прокрутки листов, которые находятся слева от названия листов и выберите нужный лист:

Как снять пароль в Excel? Три рабочих способа снятия пароля.

Способ 1. (Используем программу) Ищем в поисковике и загружаем программу

Как собрать несколько книг Excel в одну?

Например, мы имеем много рабочих книг Excel, и мы хотим

Что такое макрос и куда его вставлять в Excel?

Нам в работе иногда не хватает стандартных возможностей Эксель и приходится напрягать

Как добавить абзац в ячейке Excel?

Достаточно часто при заполнении ячейки текстом, возникает необходимость ввести текст

Как посчитать количество уникальных значений в колонке Excel?

Иногда в работе нам нужно посчитать уникальные значения в определенной

Отсортировать уникальные значения в Excel

Предположим, что у нас есть такая таблица с перечнем соглашений,

Как сделать и добавить выпадающий список в Excel?

В Excel есть одна интересная особенность, а именно возможность вводить

Как быстро перейти в нужный лист книги Excel?

Многие сталкивались с файлами Ексель, в которых создано огромное количество

Обычно мы можем легко находить / искать ячейки с помощью функции поиска и замены. Но иногда нам нужно искать по имени листа. Например, на панели вкладок листа сжимаются десятки листов, и нам нужно быстро найти рабочий лист и перейти к нему. Так как? В этой статье мы обсудим оба метода, чтобы легко решить эту проблему.

• Поиск по имени рабочего листа с VBA
• Поиск по имени рабочего листа с помощью «Создать список имен листов» Kutools for Excel    (5 шаги)
• Поиск по имени рабочего листа с помощью панели навигации Kutools for Excel    (2 шаги)

---

Поиск по имени рабочего листа с VBA

Этот метод представит макрос VBA для простого поиска на листе в активной книге.

1, нажмите другой + F11 одновременно клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модули, а затем вставьте следующий код VBA в новое открывающееся окно модуля.

VBA: поиск по имени листа

Sub SearchSheetName()
Dim xName As String
Dim xFound As Boolean
xName = InputBox("Enter sheet name to find in workbook:", "Sheet search")
If xName = "" Then Exit Sub
On Error Resume Next
ActiveWorkbook.Sheets(xName).Select
xFound = (Err = 0)
On Error GoTo 0
If xFound Then
MsgBox "Sheet '" & xName & "' has been found and selected!"
Else
MsgBox "The sheet '" & xName & "' could not be found in this workbook!"
End If
End Sub

3, нажмите F5 ключ или щелкните Run кнопку для запуска этого VBA.

4. Появится диалоговое окно поиска листа, введите имя листа, на котором вы будете искать, и нажмите кнопку OK кнопка. Смотрите скриншот:

Появится другое диалоговое окно, в котором сообщается, найден рабочий лист или нет. Просто закрой это.

Примечание: Этот VBA требует точно совпадающего имени рабочего листа. Только вы вводите точно полное имя рабочего листа, вы можете узнать этот рабочий лист с помощью этого VBA.

---

Поиск по имени рабочего листа с помощью «Создать список имен листов» Kutools for Excel

В приведенном выше VBA может быть непросто найти рабочий лист, если вы не можете точно вспомнить и ввести имя рабочего листа. Этот метод познакомит Kutools for ExcelАвтора Создать список имен листов утилита для поиска и простого перехода к рабочему листу.

1. Нажмите Кутулс Плюс > Рабочий лист > Создать список имен листов , чтобы открыть диалоговое окно «Создать список имен листов». Смотрите скриншоты:

2. В открывшемся диалоговом окне Create List of Sheet Names укажите параметры: (1) проверить Содержит список гиперссылок вариант; (2) введите имя для нового созданного индексного листа; (3) указать место нового индексного листа; и (4) перечислите все имена рабочих листов в одном столбце индексного листа.

3, Нажмите Ok кнопка. Теперь создается новый индексный лист, который помещается перед всеми листами.

4. Перейдите к индексной странице и нажмите Ctrl + F одновременно с клавишами, чтобы открыть диалоговое окно «Найти и заменить», введите ключевое слово в поле Найти то, что и нажмите Найти все кнопка. Смотрите скриншот:

Теперь все имена листов, содержащие ключевые слова, найдены и перечислены в нижней части диалогового окна «Найти и заменить». См. Диалоговое окно выше.

5. Щелкните имя найденного рабочего листа в диалоговом окне «Найти и заменить», чтобы выбрать соответствующую ячейку, затем щелкните выбранную ячейку на индексном листе, и он сразу перейдет к соответствующему рабочему листу.

Демо: поиск по имени листа в Excel

---

Поиск по имени рабочего листа с помощью панели навигации Kutools for Excel

Если у вас есть Kutools for Excel установлен, вы можете легко искать рабочие листы по имени листа в области навигации. Пожалуйста, сделайте следующее:

Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now

1. По умолчанию открывается панель навигации. Если закрыто, нажмите Кутулс > Область переходов чтобы отобразить панель навигации, а затем щелкните  (Рабочая книга и лист) в левой части области навигации.

2. Вперед, чтобы проверить Фильтр флажок в области навигации и введите указанные ключевые слова в следующее поле. Теперь все листы, имена которых содержат указанные ключевые слова, будут найдены и перечислены в поле ниже. Смотрите скриншот:

Внимание: При нажатии на результаты поиска сразу открывается соответствующий рабочий лист.

Демонстрация: поиск по имени рабочего листа с помощью панели навигации Kutools for Excel

---

Статьи по теме:

---

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
• Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (6)

Оценок пока нет. Оцените первым!

Поиск в программе Microsoft Excel

​Смотрите также​Dim iFirstAddress As​ на регистр не​ find — это​ примитивная фильтрация, но​ установлено On Error​ Dim col As​ помощи.​ 2) = iRng.Address(0,​Dim iFoundSht As​ и без формы…​ то должно возвращаться​ нет​Есть несколько таблиц​Откроется окно, в​ выше, поиск ведется​ этого курсор перейдет​

​В документах Microsoft Excel,​ String, iSecondAddress As​

Поисковая функция в Excel

​ смотрел при сравнении​ довольно длинный процесс.​ жутко неудобно, особенно​ Resume Next -​ Object, arr, el​В файлике описана​ 0)​ Worksheet​shurun999​

Способ 1: простой поиск

​ #Н/Д​dendy_81​ товаров разных поставщиков​ правом верхнем углу​ по порядку построчно.​ на ту ячейку​ которые состоят из​ String​ по Like.​

1. ​ Тут прозвучало предложение​​ когда ищешь по​​ т.е. продолжить работу​​ arr = Split(«D​​ проблемма.​iLastRow = iLastRow​Dim FirstAddress As​​: какой фаил?​​В самый конец​: класс! формула сокращена​​ с одинаковыми полями,​​ которого, есть строка​ Переставив переключатель в​ Excel, по записи​ большого количества полей,​​Dim iFoundRng As​​Lubaxa​

   

2. ​ по массиву… Но,​ всем страницам и​ процедуры, но в​ E G H​davaispoem​ + 1​​ String​​shurun999​​ вставить:​​ до минимума! Спасибо​ расположенных на разных​​ поиска. В этой​​ позицию​ которой пользователь сделал​ часто требуется найти​ Range​: Спасибо огромное HUGO121!!!​​ если честно, я​​ по нескольким критериям…​​ коллекцию ничего не​​ J K M​

   

3. ​: в другом формате​​Set iRng =​​Dim TextToFind As​: вот фаил​If rFndRng Is​ вам за помощь​ листах.​

   ​ строке пишем поисковую​«По столбцам»​ щелчок.​ определенные данные, наименование​If Len(ComboBox2.Value) =​ были другие дела,​ с ними вообще​ Надо сделать общий​ добавляется), которая и​ N») On Error​sva​

   ​ .FindNext(iRng)​ Variant​AntikBantik​ Nothing Then VLookUpAllSheets​ (и Alexander_V тоже).​Вид: Артикул/Наименование/Цена и​ фразу, слова. Мы​, можно задать порядок​Если у вас довольно​ строки, и т.д.​ 1 Then MyLeight​ поэтому добралась разбираться​ дела не имела​ поиск по БД.​ отлавливается Err, по​ Resume Next For​: Формула для плана​Loop While iRng.Address​Dim iLastRow As​:​

   ​ = «#N/A»​ Вставил в свою​ т.д.​​ написали «посчитать стаж».​​ формирования результатов выдачи,​

   

   ​ масштабная таблица, то​ Очень неудобно, когда​ = 8​ со всем только​ и тем более​
4. ​ Я, если честно​ этому признаку и​ i = 9​=ИНДЕКС(ДВССЫЛ(«‘»&C11&»‘»&»!$C$7:$C$10″);ПОИСКПОЗ(Факт!B11;работы;0))​​ <> FirstAddress​​ Long​shurun999​End Function​ базу — работает!​Требуется составить заказ​ Во время ввода​ начиная с первого​ в таком случае​ приходится просматривать огромное​If Len(ComboBox2.Value) =​ в эти выходные…​ смутно представляю, как​ с Visual Basic​ определяется повторение значения​ To 57 Step​sva​Else​Dim iShtName As​, нужно вытащить данные​или в начало​ Только вот функция​ на отдельном листе.​ поисковой фразы сразу​ столбца.​

Способ 2: поиск по указанному интервалу ячеек

​ не всегда удобно​ количество строк, чтобы​ 2 Then MyLeight​ Вчера отредактировала, запустила​ можно записать поиск​ на «Вы» -​ ячейки.​ 2 Set col​: Формула для остатка​MsgBox «Значение «​ String​ со всех листов​Dim rFndRng As​ ищет неполное совпадение​

1. ​ Чтобы при вводе​ идет поиск.​В графе​

   

2. ​ производить поиск по​ найти нужное слово​​ = 9​​ — все о.к.​ с помощью массива….​ составляла только небольшие​​na4ik​​ = New Collection​ (массивная, вводить Ctrl+Shift+Enter)​ & TextForFind &​Set iFoundSht =​ которые есть в​ Range​ по одному или​ номера в поле​

Способ 3: Расширенный поиск

​Получился такой результат.​«Область поиска»​ всему листу, ведь​ или выражение. Сэкономить​Application.ScreenUpdating = False​ работает!!!! Еще раз​Hugo121​ расчетные программки. Перерыла​: Точно угадали и​

​ For Each sh​=E11-СУММ(ЕСЛИ((C11=$C$11:C11);ЕСЛИ((B11=$B$11:B11);$D$11:D11)))​ » не найдено!»,​ Sheets(«Поиск») ‘лист «Поиск»​ файле?​VLookUpAllSheets = «#N/A»​ нескольким символам, и​ «Артикул» осуществлялся поиск​Нажимаем на нужный документ,​определяется, среди каких​ в поисковой выдаче​ время и нервы​ ‘обновление экрана wykl​ спасибо!!!​: Ну цикл по​ весь интернет и​ объяснили.​ In Worksheets For​davaispoem​ 48, «Ошибка»​ присваиваем переменной​shurun999​А уже юзер​ отображает первое найденное​ данных по всем​ он откроется.​ конкретно элементов производится​ может оказаться огромное​ поможет встроенный поиск​With Columns(1)​

​Была мысль сделать​ массиву не сложный:​ даже не могу​Только добавлю -​ Each el In​: Роман, здравствуйте! Ваша​

1. ​End If​​iFoundSht.Range(«A5:AA5000»).Clear ‘очищаем диапазон​​: нужно при вводе​ проверять должен на​​ значение (ввёл «22»,​​ листам, и занесение​

   

2. ​Внимание!​ поиск. По умолчанию,​ количество результатов, которые​ Microsoft Excel. Давайте​Set iFoundRng =​ также поиск по​Sub tt() Dim​ понять, с чего​ если добавлять​

   

   ​ arr t =​​ формула для плана​​End With​​ ячеек на листе​​ номера телефона открывалась​ ЕНД() или еслиошибка()​ а нашла «220156»).​ найденного в остальных​Чем точнее укажем​ это формулы, то​ в конкретном случае​ разберемся, как он​ .Find(ComboBox2.Value & «*»​ 2 критериям, но​ a(), i&, s$​ начинать, какие функции​col.Add t​ sh.Range(el & i).Value​ работает замечательно, спасибо,​Next​ Поиск​ вся о нем​ и подставлять что​​ А мне надо​​ поля.​ место хранения документа,​ есть те данные,​ не нужны. Существует​ работает, и как​ & Right(ComboBox1.Value, 2))​ думаю, что это​ a = Sheets(«2006»).[a1].CurrentRegion.Value​ использовать и т.д.​то в коллекцию​

   

   ​ If Len(t) Then​ все у меня​End Sub​’TextToFind = Application.InputBox(«Введите​​ информация, а поиск​​ ему нравится -​ найти значение по​​Можно ли это​​ тем быстрее произойдет​ которые при клике​ способ ограничить поисковое​

   

   ​ им пользоваться.​​If Not iFoundRng​​ не понадобится. Удачи!​ For i =​ Подскажите, пожалуйста…​ добавятся все кого​ col.Add t, t​ получилось, а вот​по вашим словам​​ строку для поиска»​​ происходил по всем​ пробел, пустую строку,​ всем символам, по​ сделать с помощью​

   

   ​ поиск документа.​​ по ячейке отображаются​​ пространство только определенным​Скачать последнюю версию​ Is Nothing Then​Medvedoc​ 1 To UBound(a)​Идея такова: БД​ положим, без отбора​ If Err Then​ в формуле по​ я могу оставить​ & Chr(13) &​ листам​ 0 и т.п.​ количеству и по​ функции ВПР()? Если​Например, мы указали​ в строке формул.​ диапазоном ячеек.​ Excel​iFirstAddress = iFoundRng.Address​: Здравствуйте форумчане! =)​ If a(i, 4)​ в Excel на​ уникальных.​ MsgBox sh.Name &​​ остатку заложены два​​ только последнюю часть​​ Chr(13) & «Например:​​раньше сам делал​dendy_81​ их порядковому расположению​ можно, то как​ такой путь –​​ Это может быть​​Выделяем область ячеек, в​

   

   ​Поисковая функция в программе​Do​ Как сделать поиск​​ = Sheets(1).[a1].Value Then​​ ~ 10 листах​

   

   ​Т.е. объект Collection​ «-» & el​ условия, выбор по​ данного кода?​ Lexus или Lexus​ поиск, но давно​: Извиняюсь, что долго​ (по артикулу). Т.е.,​ задать диапазон листов?​ «Этот компьютер» -​ слово, число или​ которой хотим произвести​ Microsoft Excel предлагает​

   

   ​If Len(iFoundRng.Value) =​ по листам всей​ s = a(i,​ по годам (много​ таки может содержать​​ & i &​​ адресу и выбор​

   

   ​Юрий М​ 350″, «Поиск», «Lexus​ это было, не​ не появлялся (нэта​ если я ввел​Или же нужно​

   

   ​ «Документы» (мы помним,​ ссылка на ячейку.​ поиск.​​ возможность найти нужные​​ MyLeight Then​

   

   ​ книги? Чтобы на​ 1) & «|»​ колонок). Скажем какая-то​ одинаковые элементы​ «-» & t:​ по названию работы,​: «Убрал» жёлтую ячейку,​ 350″)​ помню уже.​ не было).​ «200543», то и​ писать макрос для​ что документ находится​ При этом, программа,​Набираем на клавиатуре комбинацию​ текстовые или числовые​ListBox1.AddItem iFoundRng &​ титульном листе была​

   
3. ​ & a(i, 2)​ форма на первом​Hugo121​​ Err.Clear Next Next​​ если одно из​​ удалил кнопку, данные​​TextToFind = iFoundSht.Range(«B2»)​Hugo121​

​Спасибо всем участникам​ найти должна только​ поиска по всем​ в папке «Документы»)​ выполняя поиск, видит​ клавиш​ значения через окно​ «|» & iFoundRng.Offset(0,​ ячейка для ввода​ & «|» &​ листе, где вводятся​: Даже если занесены​ Next End Sub​ них совпадает, то​ выводятся в одну​If TextToFind =​: куда?​ за полезную информацию!​

​ значение «200543». Что​

lumpics.ru

Поиск документа Excel по содержимому текста.

​ листам книги?​​ – «Excel» (в​ ​ только ссылку, а​​Ctrl+F​​ «Найти и заменить».​​ 1).Value​ слова для поиска​ a(i, 3) &​
​ поисковые критерии. И​
​ одинаковые значения то​ ​Внимание! Код чуть​
​ формула берет значение​ ячейку.​ «» Or TextToFind​где?​ Особенно The_Prist за​ надо поменять в​Serge​ папке «Документы» есть​ не результат. Об​
​, после чего запуститься​ Кроме того, в​End If​ и кнопка «поиск».​ «|» & a(i,​ на этом же​ ключи будут разные….​ изменил — и​ в сумму, но​Medvedoc​
​ = False Then​​А если ранее​ полную и содержательную​
​ функции? И как​
​: Можно.​ две папки «Word»​ этом эффекте велась​ знакомое нам уже​
​ приложении имеется возможность​Set iFoundRng =​ Поиск слова должен​ 4) MsgBox s​ листе выводятся​Вот например -​ сразу нашёл одну​ там нужно сделать​: спасибо большое! =)​ Exit Sub ‘если​ уже делали поиск​ функцию, а Лузеру​ в функции, если​Alexander_V​
​ и «Excel». Мы​ речь выше. Для​ окно​ расширенного поиска данных.​ .Columns(1).FindNext(iFoundRng)​ происходить по всем​
​ Sheets(1).[B1].Value = s​
​все​ ​ сколько будет единиц​ накладку: 4 курс-M51-проф.​​ так чтобы совпадало​
​ я немного подправил​ ничего не ввели​ — то ведь​ за её доработку​ при поиске не​: Вот ссылка​ помним, что документ,​ того, чтобы производить​
​«Найти и заменить»​ ​Простой поиск данных в​
​iSecondAddress = iFoundRng.Address​ листам книги и​ ​ End If Next​
​найденные результаты (строки​ в коллекции и​ Оніпко В.В.​ одновременно два условия​ ваш макрос под​ — Выход!​ нет проблем открыть​ и «#N/A».​
​ найдено совпадений, оставить​(топик третий снизу)​ который мы ищем,​ поиск именно по​. Дальнейшие действия точно​ программе Excel позволяет​Loop While iSecondAddress​ выводить полученные результаты​ End SubВ А1​ по всем колонкам)​ где будет ошибка?​Hugo121​​ (адрес и работа),​ свой шаблон, чтобы​TextToFind = Trim(TextToFind)​ справку и освежить​После этой темы​ строки пустыми или​Guest​ находится в конкретной​ результатам, по тем​ такие же, что​ ​ найти все ячейки,​
​ <> iFirstAddress​ в определенное поле​ первого листа пишите​ в виде таблицы.​Sub tt() Dim​: Огромное спасибо, вы​ а то суммирует​ вместо адреса ячейки​ ‘убираем начальные и​ знания? Там всё​ у меня появился​ заполнить пунктирами (вместо​: Посмотрел я файл​ папке «Excel»).​ данным, которые отображаются​ и при предыдущем​ в которых содержится​Else: MsgBox «Нет​ или в виде​
​ имяфамилию, выполняете код.​ Поиск надо составить​ col As New​ очень помогли…буду теперь​ все подряд…​ выводилось содержимое самой​
​ конечные пробелы​ предельно ясно, и​ интерес к изучению​ нулей)?​ с примером функции.​Если документ находится​ в ячейке, а​ способе. Единственное отличие​ введенный в поисковое​ данных»​ гипрессылки переходить на​Т.к. может быть​ по 4-5 критериям​ Collection On Error​ разбираться з кодом​
​помогите пожалуйста поправить…​ ячейки =)​Application.ScreenUpdating = False​ пример кода есть.​ VBA. Буду мыслить!​ytk5kyky​ Получается, в ней​ на флэшке, то​ не в строке​ будет состоять в​ окно набор символов​End If​ требуемую страницу.​ несколько совпадений -​ (или колонкам).​ Resume Next col.Add​А подскажите еще​

excel-office.ru

Поиск данных по всем листам.

​na4ik​​Medvedoc​ ‘отключаем обновление экрана​
​shurun999​Kilrex​: Может тогда поменять​ нужно описывать каждый​ указываем (выделяем) флэшку.​
​ формул, нужно переставить​ том, что поиск​
​ (буквы, цифры, слова,​End With​Windows 7​ цикл гоним до​сложность еще заключается​ 1, «1» col.Add​ пожалуйста, какую строку​: В VB почти​: а как сделать,​
​For Each iSheet​: это было лет​: А что еще​ местами порядок vCriteria​ лист, где надо​
​ Сначала, естественно, вставим​ переключатель из позиции​ выполняется только в​ и т.д.) без​

​Application.ScreenUpdating = True​​: Развлекайтесь. (см. файл)​

​ и куда прописать,​​ нечего не шарю…говорю​ чтобы результаты поиска​ In ThisWorkbook.Worksheets ‘поиск​ 10 назад.​ нужно прописать в​ и rTable? И​
​ искать. (=VlookupNumberX($B12;E$9;0;Таблица1!$A$1:$E$15;Таблица2!$A$1:$E$15;Таблица3!$A$1:$E$15))​ флэшку в ноутбук.​«Формулы»​ указанном интервале ячеек.​ учета регистра.​
​ ‘обновление экрана wkl​kovax​В Вашем случае​ в некоторых местах​
​ «1» On Error​ что бы эти​ сразу)​ выводились в одной​ по листам​в окно поиска,а​ коде функции VLookUpAllSheets​

​ еще добавить псевдо​​А это очень​ : )​в позицию​Как уже говорилось выше,​Находясь во вкладке​End Sub​
​: всё здорово, но​ могут быть трудности​ БД одному названию​ GoTo 0 col.Add​ ячейки выделилась еще​
​Проблема: нужно сделать​ ячейке, а не​If iSheet.Name <>​ в соседнем окне​
​ чтобы она показывала​ «интервальный просмотр», который​ длинная формула (у​Второй вариант.​«Значения»​ при обычном поиске​«Главная»​
​Юрий М​ вот если на​ с диакритическими знаками​ (или накладной) принадлежит​ 1 col.Add 1,​ например жёлтым цветом?​ поиск ячейки в​ в двух?​ iFoundSht.Name Then​ выводился результат.​
​ сумму трех значений​ будет менять xlWhole/xlPart?​ меня около 15-ти​Поиск книги​. Кроме того, существует​
​ в результаты выдачи​, кликаем по кнопке​

​: Medvedoc, Вы уже​​ листе искомое слово​

​ — их видно​​ несколько строк…. То​ «1» End SubСкажу​na4ik​
​ определенном диапазоне на​
​Юрий М​If iSheet.FilterMode =​Hugo121​ в строке идущих​ytk5kyky​ листов с прайсами​
​Excel по тексту в​ возможность поиска по​

​ попадают абсолютно все​​«Найти и выделить»​ СТОЛЬКО написали, а​ встречается несколько раз,​ только на листе,​ ли можно как-то​ по секрету -​

​ значение, если Вы​​ ‘если на листе​ — там в​В документе 46 листов,​

​ ТЗ и сделал​​Мне надо, наподобие​.​ случае, переключатель переставляем​ набор поисковых символов​

​ ленте в блоке​​ видел Вашего файла.​ всего лишь на​
​ форму можно вывести,​ поиск, то ли​

​ не избежать в​​ и крась. Как​ некоторые комментарии.​ ИМЕННОГО его задали​ установлен автофильтр, то​ опциях можно задать​ и по 5​ сам, чуть иначе.​ функции ВПР(), но​Нам нужно найти​ в позицию​ в любом виде​ инструментов​Medvedoc​ первое встреченное совпадение,​ установив нужный фонт.​ придется все-таки присваивать​ 9 строке!​ — запиши рекордером.​p.s. Вся задача​ в поиске? :-)​ снимаем его​ поиск по всей​ страниц на каждом,​Function VLookUpAllSheets(vCriteria As​ только поиск осуществлять​ книгу Excel, в​«Примечания»​ не зависимо от​«Редактирование»​: так файлик прикреплен​ а как быть​

​Lubaxa​​ каждой название….​Hugo121​Вот так например​ заключается в том​ Впрочем, Вам виднее…​Set iFoundRng =​

​ по полю «Артикул»​​ поиска (смотрите первый​ на кнопку​ не только содержимое​. Вместо этих действий​ решение, но это​ было бы сделать​ Они нормально воспринимаются,​ начинать и что​ как еще сделать​Dim sh As​ один и тот​Medvedoc​ Is Nothing Then​: как?​ листе отдельно? Ато​ «xlWhole») As Variant​ для таблицы «Прайс»,​ вариант, который мы​«Формат»​ конкретной ячейки, но​ можно просто набрать​ решение выводит в​ возможным поиск по​ если установить правильно​ использовать….​ такую же проверку,​ Worksheet Dim col​ же преподаватель в​: конечно открывал =)​ ‘если нашли​если помнил не​
​ 46 раз просить​’rTable — указывается​ а данные отображаются​ рассмотрели выше).​

​.​​ и адрес элемента,​ на клавиатуре сочетание​ результатах поиска по​ части слова​ язык. На крайний​
​Спасибо.​ ток по аудиториям?​ As Object, arr,​
​ несколько групп на​ мне понравился.​FirstAddress = iFoundRng.Address​ спрашивал бы тут​ его найти одно​

​Ctrl+F​​ каждого листа при​ ячейке написано Вася​ фонтом.​
​Watcher_1​ тому же принципу​ Split(«D E G​ и той же​ виду, что у​ ячейки, чтобы продолжить​: ни кто не​
​ тяжко.​ ВПР)​Alexander_V​Как найти нужный документ​

​ можно установить формат​​ ячейке E2 содержится​.​ наличии на каждом​ Пупкин​Hugo121​: Думаю тут однозначно​ что и проверка​

planetaexcel.ru

Как искать слово в книге excel?

​ H J K​ паре.​ вас текст найдено​ поиск по листу​ поможет с моим​Валерий беляев​’vCriteria — указывается​: Посмотрел я файл​ из открытого документа​ ячеек, которые будут​ формула, которая представляет​После того, как вы​

​ из этих листов​​при вводе в​: Как вариант -​ нужно для каждой​
​ преподавателей, ток задал​
​ M N») On​
​Заранее спасибо​ располагается в столбце​
​Do​ вопросом?​
​: Pasha Ram -​
​ ссылка на ячейку​
​ с примером функции.​Excel.​ участвовать в поиске.​ собой сумму ячеек​

​ перешли по соответствующим​​ по несколько одинаковых​ ячейку пупк находилась​1. сперва обязательно​ строки название!​

Поиск по именам вкладок в Excel?

​ другой массив:​ Error Resume Next​Кой что попытался​ А, а текст​With iFoundSht​Hugo121​

​ ты сам то​​ или текстовое значение​ Получается, в ней​В открытом документе​ Можно устанавливать ограничения​ A4 и C3.​ пунктам на ленте,​ значений =) например​ ячейка содержащая эти​ что-то пишите в​После этого уже​arr = Split(«F​ For i =​ набросать…но ток по​ ячейка в столбце​
​iLastRow = .Cells(.Rows.Count,​: Без формы.​
​ пробовал?​
​ для поиска​
​ нужно описывать каждый​ Excel переходим на​ по числовому формату,​
​ Эта сумма равна​
​ или нажали комбинацию​ на листе имеется​
​ буквы, т.е. ячецка​ пустые J1 шапок​
​ легче будет консолидировать​ I L O​
​ 9 To 57​
​ 1 листу работает(​
​ В. Вот я​
​ 1).End(xlUp).Row ‘определяем последнюю​
​Medvedoc​Ответ:​’lColNum — указывается​ лист, где надо​
​ закладку «Файл» (в​
​ по выравниванию, шрифту,​

Поиск по нескольким листам в одной книге

​ 10, и именно​​ «горячих клавиш», откроется​ два значения в​ с Васей Пупкиным​ обоих листов!​ данные из нескольких​ R») ………….. For​ Step 2 Set​Sub search_main() Dim​ и говорю что​ заполненную строку на​: Как сделать так,​Нажимаешь Ctrl+F​ номер столбца в​

​ искать. (=VlookupNumberX($B12;E$9;0;Таблица1!$A$1:$E$15;Таблица2!$A$1:$E$15;Таблица3!$A$1:$E$15))​​ Excel 2013) или​ границе, заливке и​ это число отображается​ окно​ виде цифры 5,​Medvedoc​2. копируете шапку​ таблиц в одну​ i = 8​

​ col = New​​ rng As Range​ результат поиска выводится​ листе поиск​

​ чтобы по заданному​​В открывшемся окне​

​ таблице rTable, значение​​А это очень​

​ нажимаем на кнопку​​ защите, по одному​​ в ячейке E2.​​«Найти и заменить»​ при поиске результат​: я согласен с​ с любого листа​

​ по нескольким критериям​​ To 56 Step​ Collection For Each​ ‘ область Dim​ в двух ячейках.​If iLastRow =​ в поисковике значению​
​ нажимаешь «Параметры»​ из которого необходимо​ длинная формула (у​ «Office» в левом​

​ из этих параметров,​​ Но, если мы​
​во вкладке​
​ покажет с этого​ kovax =) если​ на первый лист.​Hugo121​ 2но почему выводит​ sh In Worksheets​ name1 With Worksheets(«1​ А как сделать​

​ 1 Then iLastRow​​ находились все результаты​В открывшихся окошечках​
​ вернуть — может​ меня около 15-ти​ верхнем углу (в​

​ или комбинируя их​​ зададим в поиске​«Найти»​ листа только первое​ слово встретиться два​ Это как понимаете​
​: Думаю можно сделать​ слишком много лишних​

​ For Each el​​ курс») Set rng​
​ так, чтобы он​ = 4 ‘если​

​ на всех листах.​​ выбираешь «В книге»​ быть ссылкой на​ листов с прайсами​

​ Excel 2007).​​ вместе.​

CyberForum.ru

как сделать поиск по всем листам книги?

​ цифру «4», то​​. Она нам и​ значение =)​ раза, то поисковик​ работа разовая.​ так -​ значений…возможно это из​ In arr t​ = .Range(«D12:X11») name1​ был только в​ лист пуст, то​ Приложенный файлик содержит​Вводишь что искать​ столбец — СТОЛБЕЦ()​ товаров).​В появившемся диалоговом​Если вы хотите использовать​ среди результатов выдачи​ нужна. В поле​я нашел другой​ выведет только первое​3. под шапкой​1. заполняете свои​ того что ячейки​ = sh.Range(el &​ = Range(«D11»).Value For​ одной ячейке? Например​ вставлять будем начиная​ макрос, который выводит​Нажимаешь «Найти все»​

​’XlLookAt — Optional.​​Мне надо, наподобие​

​ окне нажимаем на​​ формат какой-то конкретной​

​ будет все та​​«Найти»​ макрос поисковика, где​ найденое значение на​
​ (2 строка) пишите​ 4-5 критериев (можно​ соединенны =​ i).Value If Len(t)​ Each cell In​ в ячейке G?​ с 7-й строки​ результат поиска только​ЗЫ: Это в​ Can be one​ функции ВПР(), но​ функцию «Открыть». Появится​ ячейки, то в​ же ячейка E2.​вводим слово, символы,​
​ отчасти реализовано то,​ странице =) а​ что угодно в​ в любом порядке,​p.s. как можно​ Then col.Add t,​ rng If cell​

​Юрий М​​If iShtName <>​ первого значения листа​ 2007, другого нет​ of the following​ только поиск осуществлять​

​ список последних книг​​ нижней части окна​ Как такое могло​ или выражения, по​ что надо. Но​ как быть с​ соотв. ячейки -​ любые, можно не​ сделать что бы​ t If Err​ = name1 Then​: Вы про какой​ iSheet.Name Then ‘если​

​ Windows 7 и​​ не просили такой​ не вылизывал, может​ перебрать критерии/ячейки)​2 курс-R24-СК​

​ Err.Clear End If​​ name1 For j​ вам огромное за​iFoundSht.Hyperlinks.Add Anchor:=iFoundSht.Cells(iLastRow +​ выводились и остальные​ нужную, не просматривая​ .Range(rTable.Address).Resize(, 1).Find(vCriteria, ,​ с таблицами :),и​

​ строке поиска пишем​​ на кнопку​ поиска? Именно для​ где содержатся введенные​ от него надо​ поиск.{/post}{/quote}​

​ есть ещё какие​​3. если все​1 курс-I30-СК​ Next Next Next​ = 1 To​ помощь! =)​

​ 1, 1), Address:=»»,​​ значения данной страницы,​ все имена?​

​ xlValues, IIf(XlLookAt =​​ формула тоже очень​ поисковую фразу или​
​«OK»​ этих целей существует​ группы символов. Сама​ отталкиваться, поскольку это​Возможно думал о​ блохи. Да и​ нашлись — копирует​1 курс-L30-СК​ End SubТолько изначальную​ Sheets.Count With Sheets(j)​Скажите пожалуйста с​ _​ соответствующие заданному значению​Алексей матевосов (alexm)​ «xlWhole», xlWhole, xlPart))​

​ длинная получилась(кто если​​ слово. Мы написали​.​ расширенный поиск Excel.​

​ не мы формуле​​ «визитка». Появится список​Бывают случаи, когда нужно​После открытия окна​

​ изучать создание макросов?​​ & «‘» &​ есть как сделать​

​ «!» & iFoundRng.Address,​​ так, чтобы остальные​ одного листа к​VLookUpAllSheets = rFndRng.Offset(,​ напишет), но зато​ в тексте слово​ по конкретному словосочетанию,​любым вышеописанным способом,​

​ обрабатываются все ячейки​​: Правильно — это​

​ =)​​ копирование тоже. Но​

​ lColNum — 1).Value​​ работает :)​ «визитка».​ а найти ячейки,​ жмем на кнопку​ первой строки. Если​ не Ваш файл,​

​А возможен такой​​ будет непонятнее.​
​5. На этом​

​3 курс-F34-25​​ не нужно.​ If cell =​ в «Копилке») и​
​ » & iSheet.Name​ тоже выводились в​

​ так. Кликнуть правой​​Exit For​

​Попробую сообразить пользовательскую​​Внимание!​
​ в которых находятся​

​«Параметры»​​ данные отвечающие условию​ Вы даже поленились​
​ вариант?​

​Так будет чуть​​ листе больше нет​4 курс-I34-25​Апострофф​ name1 Then MsgBox​ Форум/Форумы.​’.Font.Bold = True​ результатах поиска?​ кнопкой мышки по​End If​ функцию для поиска​Внизу этого окна​ поисковые слова в​.​ найдены не были,​ набросать пример, а​Medvedoc​ быстрее и надёжнее:​ — ищем аналогично​4 курс-I36-25​: Очень помогли, спасибо)​
​ («ГЋГёГ»ГЎГЄГ*») cell.Interior.Color =​

planetaexcel.ru

Поиск по всем листам

​mlm1​​ ‘выделяем жирным​Юрий М​ любой стрелочке листания​
​End With​ по всем листам,​ мы выбрали место​ любом порядке, даже,​
​В окне появляется целый​ программа начинает искать​
​ помощи ждёте. Вот​: А Вы и​Option Explicit Sub​ на следующем.​2 курс-I40-СК​…ток почему то​ RGB(255, 255, 0)​: Добрый день​End With​: Вариант.​ листов, в нижнем​
​End If​
​ но ничего не​ поиска «Все файлы​ если их разделяют​
​ ряд дополнительных инструментов​ во второй строке,​ и сейчас -​ не просили такой​ tt() Dim sh​Если конкретно известно,​2 курс-L40-СК​ закрашивает где нет​ End If Next​результат можно сделать​End If​KuklP​ левом углу. Если​Next i​ обещаю .​

​ Excel». Здесь мы​​ другие слова и​
​ для управления поиском.​ и так далее,​ просите поиск по​ поиск.{/post}{/quote}​ As Worksheet, el,​ что ищем и​2 курс-O40-СК​ ошибки=​ cell End With​ в виде ссылок​’iFoundRng.EntireRow.Copy Destination:=.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row​: EducatedFool выкладывал надстройку.​ листов очень много,​End Function​PS: Я только​ можем выбрать другой​ символы. Тогда данные​

​ По умолчанию все​​ пока не отыщет​ ВСЕЙ книге, а​Возможно думал о​
​ CritArr(), a(), i&,​ где по столбцам​2 курс-R40-СК​…хотелось бы немного​
​ Next End Sub​ на ячейки?​ + 1, 1)​Medvedoc​ то в открывшемся​Справка на англицком,​ учусь.​

​ вид файла. Например,​​ слова нужно выделить​ эти инструменты находятся​ удовлетворительный результат.​ в книге всего​ таком поиске =)​

​ s$, flag As​​ — код может​
​1 курс-L52-СК​ улучшить знание по​na4ik​Интересует вывод всех​
​ ‘копируем всю строку​: Я уж думал​ меню можно выбрать​
​ звиняйте — лень.​dude​ нам нужно найти​
​ с обеих сторон​
​ в состоянии, как​Поисковые символы не обязательно​ один лист. Не​ но не описал​
​ Boolean, n&, ind&,​ быть проще, можно​1 курс-R52-СК​
​ VB в excel…не​: Да, так спасибо)….ток​ совпадающих значений на​

​iShtName = iSheet.Name​​ вы меня забаните​
​ все листы. Результат​Alexander_V​: так?​ текст в Excel’евском​

​ знаком «*». Теперь​​ при обычном поиске,​
​ должны быть самостоятельными​ показали — куда​ до конца сути​ x& CritArr =​ делать не через​4 курс-F52-25​ подскажите какую то​ я немного по​ листе​ ‘запоминаем имя листа​ =)​ увидите.​: класс! формула сокращена​dendy_81​ файле со словами​ в поисковой выдаче​ но при необходимости​ элементами. Так, если​ выводить найденное… Много​ =)​ Application.Trim(Sheets(1).[A2:M2].Value) ind =​ find, а циклом​4 курс-F54-25​ методичку…или лучше скинь​ другом прописал:​Юрий М​End With​
​Ваш вариант тоже​Можно сделать и​ до минимума! Спасибо​: посмотрел ваш файл​ визитка. Тогда мы​

​ будут отображены все​​ можно выполнить корректировку.​ в качестве запроса​ будет желающих делать​
​А возможен такой​ 3 Application.ScreenUpdating =​ по массиву данных.​Sub search_main() Dim​ те при возможности​Код For i​

​: А разве не​​Set iFoundRng =​ прикольный. Но встает​ поиск макросом VBA.​ вам за помощь​
​ — не совсем​ выберем функцию «Все​ ячейки, в которых​По умолчанию, функции​
​ будет задано выражение​ за Вас файл?​ вариант?{/post}{/quote}​ False Sheets(1).UsedRange.Offset(2).Clear For​Watcher_1​ sh As Worksheet​Hugo121​ = 1 To​ все выводятся?​ iSheet.Cells.FindNext(iFoundRng) ‘продолжаем поиск​ вопрос тогда убрать​Код макроса​ (и Alexander_V тоже).​ понятна формула: =ДВССЫЛ(АДРЕС(raw($A5);СТОЛБЕЦ();1;1;lst($A5))).​ файлы». Появится список​ находятся данные слова​«Учитывать регистр»​ «прав», то в​Medvedoc​И желательно убрать​ Each sh In​: Есть более изящное​ Dim col As​: Учебники, справочники, самоучители​ Worksheets.Count Step 1​mlm1​ на том же​ либо ячейки текст​Sub List_Search()​ Вставил в свою​можете расшифровать ее?​ всех разных файлов​ в любом порядке.​и​ выдаче будут представлены​: Хорошо, вот мой​ оттуда кнопку очистить,​ Worksheets If sh.Name​

​ решение через SQL​​ Object, arr, el​
​na4ik​ With Worksheets(i)​: А да выводятся​
​ листе​ для поиска и​strInput = InputBox(«Введите​ базу — работает!​при ее копировании​ со словом «визитка»​

​Как только настройки поиска​​«Ячейки целиком»​

​ все ячейки, которые​​ файл.​ а очищение сделать​ <> «Sheet1» Then​Hugo121​ ‘arr = Split(«D​: Почему это нет?​Как бы теперь​
​ все​Loop While iFoundRng.Address​
​ желтую ячейку с​ имя листа книги»,​ Только вот функция​ и вставке в​ — и текст​ установлены, следует нажать​отключены, но, если​
​ содержат данный последовательный​Но там нет​ автоматическим по истечению​ a = sh.[a1].CurrentRegion.Value​: Да, если конкретно​

​ E G H​​ Как этот проф.​​ сделать так, что​​Можно сделать чтобы​ <> FirstAddress​ цифрой 5 совсем,​ «Поиск листов книги»)​ ищет неполное совпадение​ мой лист «заказ»​ в Word, и​
​ на кнопку​ мы поставим галочки​ набор символов даже​ реализации поиска. Пользователь​ 30 секунд​ For i =​ известно, что ищем​ J K M​

​ Оніпко В.В. может​​ бы этот цикл​ выводились например полностью​End If​ поскольку она грубо​ok = 0​ по одному или​ появляется ошибка «#ИМЯ?»,​ файл Excel, и​«Найти всё»​ около соответствующих пунктов,​ внутри слова. Например,​ Windows 7 предложил​Medvedoc​ 1 To UBound(a)​ и где по​ N») arr =​

​ одновременно преподавать Грунтознавство​​ перемещался вниз по​ значения (а не​
​End If​ говоря дублирует вашу​
​If strInput <>​
​ нескольким символам, и​ а в исходнике​ картинки с названием​или​
​ то в таком​ релевантным запросу в​ свой файл. Я​

​: посмотрел код более​​ flag = True:​ столбцам.​ Split(«F I L​

​ у П-32 и​ строкам…и при этом​ ссылки на ячейки)​Next iSheet​
​ кнопку. И вывод​ «» Then​ отображает первое найденное​ появляется ошибка «#ЗНАЧ!»​ «визитка», т.д.​«Найти далее»​ случае, при формировании​ этом случае будет​ его протестировал и​ внимательнее =) а​ n = 0​Но на массивах​ O R») On​ Методика навчання біології​​ же менялось начальное​​Например надо найти​Application.ScreenUpdating = True​ должен быть в​For i =​ значение (ввёл «22»,​а в вашем​
​Как найти файл​, чтобы перейти к​ результата будет учитываться​ считаться слово «Направо».​ обнаружил незначительный минус,​
​ можно сделать так,​ For Each el​ в таком случае​ Error Resume Next​ у П-44?​ значение переменной name1​ цифру 5​ ‘включаем обновление экрана​ одну ячейку в​ 1 To Worksheets.Count​
​ а нашла «220156»).​ исходнике всё работает.​ определенного типа, смотрите​ поисковой выдаче.​ введенный регистр, и​ Если вы зададите​
​ который и описал​
​ чтобы вместо номера​
​ In CritArr If​
​ будет не менее​
​ ‘For i =​
​Да ещё и​
​Watcher_1​
​Результат с ссылками​
​MsgBox «Поиск завершён!»,​
​ виде текста как​
​If Worksheets(i).Name =​
​ А мне надо​
​Guest​
​ в статье «Поиск​
​Как видим, программа Excel​
​ точное совпадение. Если​
​ в поисковике цифру​
​ выше. И эт​
​ ячейки выводилось ее​
​ flag Then n​
​ изящно, и думаю​
​ 9 To 57​
​ в разных аудиториях?​
​: Я так понял​
​ (например)​ 64, «Поиск»​ в моем файлике​ strInput Then​ найти значение по​: эта функция VLookup​ документа Word по​ представляет собой довольно​ вы введете слово​ «1», то в​ оне значит, что​ название, точнее текст,​ = n +​ проще/понятнее. И скорее​ Step 2 For​Хотя я аудитории​ это мысли в​5​End Sub​ =)​Sheets(strInput).Select​ всем символам, по​ у меня не​ тексту» тут. Принцип​ простой, но вместе​ с маленькой буквы,​ ответ попадут ячейки,​ поленился.​ который в ней​ 1 If Len(el)​ всего будет работать​ i = 8​ не учитывал -​ слух? Иначе я​51​
​Sub Finder()​либо реализовано как​ok = 1​ количеству и по​ хочет работать. может​ один.​ с тем очень​ то в поисковую​ которые содержат, например,​Также на похожей​

CyberForum.ru

БД в Excel: организовать поиск по всем листам и по нескольким критериям

​ содержится?​​ Then If Application.Trim(a(i,​
​ быстрее. И нет​ To 56 Step​ правильно было бы​ не вижу никакой​156​Dim iRng As​ я хотел, то​End If​ их порядковому расположению​ подскажете, как ее​В Excel можно​ функциональный набор инструментов​ выдачу, ячейки содержащие​ число «516».​ теме нашел другой​Medvedoc​ n)) <> el​ особых требований к​ 2 Set col​ смотреть, чтоб если​ смысловой нагрузки…​
​567​ Range, TextForFind As​ есть сохранить мой​Next i​ (по артикулу). Т.е.,​ прописать в мой​ искать данные функциями,​ поиска. Для того,​ написание этого слова​Для того, чтобы перейти​​ вариант поисковика, который​​: Заменил в строчке​ Then flag =​ таблицам.​ = New Collection​ аудитория и предмет​na4ik​
​Юрий М​ String, FirstAddress As​ файлик, но с​If ok =​ если я ввел​ файл?​ можно искать, выбирать,​ чтобы произвести простейший​ с большой буквы,​ к следующему результату,​ реализован на одном​
​ .Value = «Лист:​ False: Exit For​Watcher_1​ For Each sh​ совпадают, то и​
​: Скорее это вопрос)​
​: Это ведь совсем​

​ String, n As​​ вашей реализацией всех​ 0 Then MsgBox​ «200543», то и​
​тухачевский​ переносить данные в​ писк, достаточно вызвать​ как это было​ опять нажмите кнопку​

​ листе, но при​​ » & iSheet.Name​ End If End​
​: Судя по ТЗ​ In Worksheets For​ препод должен повторяться!​..можно ли как​ другая задача (а​
​ Integer, iLastRow As​ результатов со всего​ «Листа с таким​ найти должна только​: посмотрел ваш файл​ другое место, в​ поисковое окно, ввести​ бы по умолчанию,​«Найти далее»​ этом выводит результаты​
​ & » Ячейка:​ If Next If​ как раз известно,​
​ Each el In​Как это прикрутить​ то задать смену​
​ то я уже​ Long​ листа =)​ именем нет»​
​ значение «200543». Что​ — не совсем​ другую таблицу, бланк,​ в него запрос,​ уже не попадут.​.​ поиска всех найденных​ » & iFoundRng.Address(0,​

​ flag Then ind​​ что к какому​ arr t =​

​ — думать не​​ значение ячейки?…что то​ сделал и формирование​iLastRow = Cells(Rows.Count,​Medvedoc​
​End If​ надо поменять в​ понятна формула: =ДВССЫЛ(АДРЕС(raw($A5);СТОЛБЕЦ();1;1;lst($A5))).​ т.д. формулами. Какими​ и нажать на​ Кроме того, если​Так можно продолжать до​ значений, заданных изначально.​ 0)​

​ = ind +​​ столбцу привязано. Единственное​ sh.Range(el & i).Value​ хочу, да и​ плана:​ гиперссылок). Уточните проблему,​ 1).End(xlUp).Row​: спасибо за предложение,​End Sub​

​ функции? И как​​можете расшифровать ее?​ способами можно искать​ кнопку. Но, в​ включена функция​ тех, пор, пока​ Мне надо как-то​значение iFoundRng.Address(0, 0)​

​ 1 For x​​ неудобство это, что​ If Len(t) Then​ может и не​j=11 Set rng​ чтобы не переделывать​Range(Cells(5, 1), Cells(iLastRow​ но надстройку не​shurun999​ в функции, если​при ее копировании​ данные в Excel,​ то же время,​«Ячейки целиком»​ отображение результатов не​ данную возможность реализовать​ на iFoundRng.Offset(0, 0)​ = 1 To​ к одной строке​ col.Add t, CStr(t)​ нужно…​ = .Range(«D(j):X(j)») ——————————​ потом.​ + 1, 2)).Clear​ надо =) мне​: Есть задача создания​

​ при поиске не​​ и вставке в​ смотрите в статье​
​ существует возможность настройки​, то в выдачу​ начнется по новому​ в макросе пользователя​ и в выводимых​ 13 Sheets(1).Cells(ind, x).Value​ привязано несколько значений​ If Err Then​Hugo121​ j=j+2​mlm1​iLastRow = 4​ два варианта верхних​ поиска по нескольким​ найдено совпадений, оставить​ мой лист «заказ»​ «Поиск в Excel»​ индивидуального поиска с​ будут добавляться только​
​ кругу.​ windows 7.​ результатах вместо адреса​ = a(i, x)​
​ из нескольких строк​ Debug.Print sh.Name &​:​или как это​: Прикрепил файл​TextForFind = InputBox(«Введите​ нравятся​ листам одной книги.​

​ строки пустыми или​​ появляется ошибка «#ИМЯ?»,​
​ и в перечне​ большим количеством различных​ элементы, содержащие точное​В случае, если при​Medvedoc​ ячейки стало показываться​ Next End If​

​Hugo121​​ «-» & el​
​Hugo121​ можно написать для​Юрий М​ искомое слово (значение)»,​
​Юрий М​ Нужно вводить номер​ заполнить пунктирами (вместо​ а в исходнике​ статей по этой​
​ параметров и дополнительных​ наименование. Например, если​ запуске поисковой процедуры​: пришлось заархивировать​ содержимое самой ячейки​ Next End If​: Ещё вариант -​ & i &​
​, хотел уточнить…а где​ excel?​: Так?​ » Запрос для​: А кто Вам​
​ телефона, и чтоб​ нулей)?{/post}{/quote}​ появляется ошибка «#ЗНАЧ!»​ теме, расположенном в​ настроек.​ вы зададите поисковый​ вы нажмете на​Файл удален​(текст) =)​
​ Next Application.ScreenUpdating =​ макросом ставить стандартный​
​ «-» & t:​ осуществляется само сравнение​Скорее это вопрос)​mlm1​ поиска»)​ мешает «убрать» эту​ открывались все его​Моя по полному​а в вашем​ конце статьи.​Автор: Максим Тютюшев​ запрос «Николаев», то​ кнопку​- велик размер​Остался вопрос как​ True End Sub​ фильтр и копировать​ Err.Clear Next Next​ значений ячеек?…или возможно​..можно ли как​: Спасибо так.​If TextForFind =​ жёлтую ячейку? Она​ данные, на каждом​ ищет если​ исходнике всё работает.{/post}{/quote}​Поработали — пора​Рассмотрим,​ ячейки, содержащие текст​«Найти все»​ — [​ сделать так, чтобы​Hugo121​ видимые. Но мне​ Next End SubВ​ так как я​ то задать смену​А можно без​ «» Then​

​ в моём макросе​​ листе таблица (​ не находит пишет​вечером было избыточно​ отдохнуть. )) А​как найти документ​ «Николаев А. Д.»,​
​, все результаты выдачи​МОДЕРАТОРЫ​ выводились все результаты​
​: Чуть исправил код​ этот способ не​ коде нужно было​ понял, объект Collection​ значение ячейки?…что то​

​ вывода промежуточных результатов​​MsgBox «Вы ничего​ не задействована. Значение​
​ 1ст поряд.номер, 2-​ 0.​упростил​ если серьёзно, то,​

​Excel по содержимому текста​​ в выдачу уже​ будут представлены в​]​ с заданным значением​ — теперь вместо​ нравится… хотя работает​ добавить Cstr(t), т.к.​ не может содержать​ плана:​
​ (окошек) Найдено столько​ не указали», 48,​ для поиска выбирается​ сам номер,3- данные,​Alexander_V​

CyberForum.ru

Поиск по листам всей книги [ТЕМА ЗАКРЫТА — повторное нарушение]

​это пользовательская функция​​ в Excel есть​,​ добавлены не будут.​ виде списка в​Юрий М​ с одной страницы​ currentregion обрабатываю usedrange,​ быстро.​ тут уже числа.​ одинаков элементов?​j=11 Set rng​ -то штук на​ «Вы чё, в​ по запросу -​ 4- данные, 5-данные).​: Внимательно перечитал пост​

​нужно в вашу​​ много возможностей, кроме​

​таблицы​​По умолчанию, поиск производится​ нижней части поискового​: Прошлось удалить.​ =)​ поэтому в J1​Lubaxa​Чтоб показывало и​If Len(t) Then​ = .Range(«D(j):X(j)») ——————————​

​ листе 1 и​​ натуре?»​ Вы не заметили?​ как это сделать,​ думал нужно что​
​ книгу скопировать модуль​ стандартных функций Excel,​, например, когда не​
​ только на активном​ окна. В этом​Medvedoc​Medvedoc​ можно ничего не​

​: Поиск по этим​​ с чем совпало​ col.Add t, t​ j=j+2​ т.д.​Exit Sub​ Кнопку очистки​ подскажите.​ бы «0» писало​ из прикрепленной книги​
​ которые можно применить​ помним название файла,​ листе Excel. Но,​

​ списке находятся информация​​:​: нашел макрос другого​ писать.​

​ Например, как можно​​Первый вариант.​«Искать»​ с данными, удовлетворяющими​- велик размер​ с листа отображаются​ режим отбора по​ имя/фамилия (в этих​ Это сейчас писать​

​ формул The_Prist-а и​​ пользовательская так что​ на примере создания​ нижнем углу монитора.​ производиться по всем​

​ попытке дополнить коллекцию​​na4ik​то что искал​Do​Dim iFoundRng As​ ое количество.​ свою выкладывать:).​dude​ Excel».​ «Этот компьютер» (в​«Просматривать»​ из результатов выдачи,​ чтобы он выводил​Сам код​: Думаю ещё есть​

​ из этих критериев​​Помогите, пожалуйста…. Есть​ с уже имеющимся​
​: Может так?​davaispoem​Cells(iLastRow + 1,​ Range​Hugo121​ytk5kyky​: с учетом решения​dendy_81​ Word 2013) или​можно изменить направление​
​ достаточно просто кликнуть​ все найденные значения​Private Sub CommandButton1_Click()​ смысл добавить​ (максимум 2). Насколько​ база данных в​ ключём возникает ошибка​Sub search_main() Dim​: Здравствуйте! Уважаемые специалисты,​ 1) = Sheets(n).Name​Dim iSheet As​: C формой нужно​

​: По хорошему, если​​ Alexander_V все короче​
​: Здравствуйте. У меня​​ «Мой компьютер» (в​ поиска. По умолчанию,​​ по нему левой​​ с листа по​

​Dim MyLeight As​​Option Compare Textчтоб​

​ я понимаю. то​​ Excel. Пока использовалась​​ (для продолжения работы​​ sh As Worksheet​ вновь прошу вашей​​Cells(iLastRow + 1,​​ Worksheet​

​ делать. Но можно​​ ничего не найдено,​а автора все​ такой вопрос.​ Word 2007).​ как уже говорилось​ кнопкой мыши. После​ запросу​

planetaexcel.ru

​ Integer​

Содержание

• 1 Поисковая функция в Excel
  • 1.1 Способ 1: простой поиск
  • 1.2 Способ 2: поиск по указанному интервалу ячеек
  • 1.3 Способ 3: Расширенный поиск
  • 1.4 Помогла ли вам эта статья?
  • 1.5 Поиск по нескольким листам с помощью макроса VBA
• 2 Простой поиск
• 3 Расширенный поиск
• 4 Разновидности поиска
  • 4.1 Поиск совпадений
  • 4.2 Фильтрация
  • 4.3 Видео: Поиск в таблице Excel

В документах Microsoft Excel, которые состоят из большого количества полей, часто требуется найти определенные данные, наименование строки, и т.д. Очень неудобно, когда приходится просматривать огромное количество строк, чтобы найти нужное слово или выражение. Сэкономить время и нервы поможет встроенный поиск Microsoft Excel. Давайте разберемся, как он работает, и как им пользоваться.

Поисковая функция в программе Microsoft Excel предлагает возможность найти нужные текстовые или числовые значения через окно «Найти и заменить». Кроме того, в приложении имеется возможность расширенного поиска данных.

Способ 1: простой поиск

Простой поиск данных в программе Excel позволяет найти все ячейки, в которых содержится введенный в поисковое окно набор символов (буквы, цифры, слова, и т.д.) без учета регистра.

1. Находясь во вкладке «Главная», кликаем по кнопке «Найти и выделить», которая расположена на ленте в блоке инструментов «Редактирование». В появившемся меню выбираем пункт «Найти…». Вместо этих действий можно просто набрать на клавиатуре сочетание клавиш Ctrl+F.
2. После того, как вы перешли по соответствующим пунктам на ленте, или нажали комбинацию «горячих клавиш», откроется окно «Найти и заменить» во вкладке «Найти». Она нам и нужна. В поле «Найти» вводим слово, символы, или выражения, по которым собираемся производить поиск. Жмем на кнопку «Найти далее», или на кнопку «Найти всё».
3. При нажатии на кнопку «Найти далее» мы перемещаемся к первой же ячейке, где содержатся введенные группы символов. Сама ячейка становится активной.

   Поиск и выдача результатов производится построчно. Сначала обрабатываются все ячейки первой строки. Если данные отвечающие условию найдены не были, программа начинает искать во второй строке, и так далее, пока не отыщет удовлетворительный результат.

   Поисковые символы не обязательно должны быть самостоятельными элементами. Так, если в качестве запроса будет задано выражение «прав», то в выдаче будут представлены все ячейки, которые содержат данный последовательный набор символов даже внутри слова. Например, релевантным запросу в этом случае будет считаться слово «Направо». Если вы зададите в поисковике цифру «1», то в ответ попадут ячейки, которые содержат, например, число «516».

   Для того, чтобы перейти к следующему результату, опять нажмите кнопку «Найти далее».

   

   Так можно продолжать до тех, пор, пока отображение результатов не начнется по новому кругу.

4. В случае, если при запуске поисковой процедуры вы нажмете на кнопку «Найти все», все результаты выдачи будут представлены в виде списка в нижней части поискового окна. В этом списке находятся информация о содержимом ячеек с данными, удовлетворяющими запросу поиска, указан их адрес расположения, а также лист и книга, к которым они относятся. Для того, чтобы перейти к любому из результатов выдачи, достаточно просто кликнуть по нему левой кнопкой мыши. После этого курсор перейдет на ту ячейку Excel, по записи которой пользователь сделал щелчок.

Способ 2: поиск по указанному интервалу ячеек

Если у вас довольно масштабная таблица, то в таком случае не всегда удобно производить поиск по всему листу, ведь в поисковой выдаче может оказаться огромное количество результатов, которые в конкретном случае не нужны. Существует способ ограничить поисковое пространство только определенным диапазоном ячеек.

1. Выделяем область ячеек, в которой хотим произвести поиск.
2. Набираем на клавиатуре комбинацию клавиш Ctrl+F, после чего запуститься знакомое нам уже окно «Найти и заменить». Дальнейшие действия точно такие же, что и при предыдущем способе. Единственное отличие будет состоять в том, что поиск выполняется только в указанном интервале ячеек.

Способ 3: Расширенный поиск

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

К тому же, в выдачу может попасть не только содержимое конкретной ячейки, но и адрес элемента, на который она ссылается. Например, в ячейке E2 содержится формула, которая представляет собой сумму ячеек A4 и C3. Эта сумма равна 10, и именно это число отображается в ячейке E2. Но, если мы зададим в поиске цифру «4», то среди результатов выдачи будет все та же ячейка E2. Как такое могло получиться? Просто в ячейке E2 в качестве формулы содержится адрес на ячейку A4, который как раз включает в себя искомую цифру 4.

Но, как отсечь такие, и другие заведомо неприемлемые результаты выдачи поиска? Именно для этих целей существует расширенный поиск Excel.

1. После открытия окна «Найти и заменить» любым вышеописанным способом, жмем на кнопку «Параметры».
2. В окне появляется целый ряд дополнительных инструментов для управления поиском. По умолчанию все эти инструменты находятся в состоянии, как при обычном поиске, но при необходимости можно выполнить корректировку.

   

   По умолчанию, функции «Учитывать регистр» и «Ячейки целиком» отключены, но, если мы поставим галочки около соответствующих пунктов, то в таком случае, при формировании результата будет учитываться введенный регистр, и точное совпадение. Если вы введете слово с маленькой буквы, то в поисковую выдачу, ячейки содержащие написание этого слова с большой буквы, как это было бы по умолчанию, уже не попадут. Кроме того, если включена функция «Ячейки целиком», то в выдачу будут добавляться только элементы, содержащие точное наименование. Например, если вы зададите поисковый запрос «Николаев», то ячейки, содержащие текст «Николаев А. Д.», в выдачу уже добавлены не будут.

   

   По умолчанию, поиск производится только на активном листе Excel. Но, если параметр «Искать» вы переведете в позицию «В книге», то поиск будет производиться по всем листам открытого файла.

   

   В параметре «Просматривать» можно изменить направление поиска. По умолчанию, как уже говорилось выше, поиск ведется по порядку построчно. Переставив переключатель в позицию «По столбцам», можно задать порядок формирования результатов выдачи, начиная с первого столбца.

   

   В графе «Область поиска» определяется, среди каких конкретно элементов производится поиск. По умолчанию, это формулы, то есть те данные, которые при клике по ячейке отображаются в строке формул. Это может быть слово, число или ссылка на ячейку. При этом, программа, выполняя поиск, видит только ссылку, а не результат. Об этом эффекте велась речь выше. Для того, чтобы производить поиск именно по результатам, по тем данным, которые отображаются в ячейке, а не в строке формул, нужно переставить переключатель из позиции «Формулы» в позицию «Значения». Кроме того, существует возможность поиска по примечаниям. В этом случае, переключатель переставляем в позицию «Примечания».

   

   Ещё более точно поиск можно задать, нажав на кнопку «Формат».

   

   При этом открывается окно формата ячеек. Тут можно установить формат ячеек, которые будут участвовать в поиске. Можно устанавливать ограничения по числовому формату, по выравниванию, шрифту, границе, заливке и защите, по одному из этих параметров, или комбинируя их вместе.

   

   Если вы хотите использовать формат какой-то конкретной ячейки, то в нижней части окна нажмите на кнопку «Использовать формат этой ячейки…».

   

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

   

   После того, как формат поиска настроен, жмем на кнопку «OK».

   

   Бывают случаи, когда нужно произвести поиск не по конкретному словосочетанию, а найти ячейки, в которых находятся поисковые слова в любом порядке, даже, если их разделяют другие слова и символы. Тогда данные слова нужно выделить с обеих сторон знаком «*». Теперь в поисковой выдаче будут отображены все ячейки, в которых находятся данные слова в любом порядке.

3. Как только настройки поиска установлены, следует нажать на кнопку «Найти всё» или «Найти далее», чтобы перейти к поисковой выдаче.

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

Мы рады, что смогли помочь Вам в решении проблемы.

Задайте свой вопрос в комментариях, подробно расписав суть проблемы. Наши специалисты постараются ответить максимально быстро.

Помогла ли вам эта статья?

Да Нет

     Добрый день!

    Сегодня я хочу расширить границы использования функции ВПР и научить вас использовать эту функцию, что бы произвести поиск значений в Excel по нескольким листам вашего рабочего файла.

     Как вы знаете или еще не знаете, я напоминаю, в чистом виде функция ВПР производит поиск только в одной таблице, а о том, что бы чистыми возможностями функции произвести поиск необходимого значения в нескольких листиках, это невозможно. Но, тем не менее, при большой необходимости можно схитрить и произвести поиск по двум листам. Для этого используем возможности логической функции ЕСЛИ и формула поиска будет выглядеть приблизительно так:

         =ВПР (C3 ;ЕСЛИ (ЕНД (ВПР (C3 ;Таблица2!C3:D7 ;2; 0)); Таблица3! C3:D7 ;Таблица2! C3:D7 );2; 0).

     Но такой вариант работает только с 2 таблицами, а в случае, когда листов больше, нужно увеличивать количество вложений для функции ЕСЛИ. Но при этом:

• во-первых, если много листов, то есть огромный шанс что длина формулы будет больше допустимого размера и перестанет работать;
• во-вторых, это просто непрактично, так как при работе такой мега-формулы возникает значительно риск ошибок и при изменениях придётся переделывать формулу.

     Но, как всегда, выход есть. Рассмотрим небольшую хитрость с помощью, которой и будем искать в нужных листах. Начнем работу с создания перечня листов нашей книги, где будем производить поиск значений. В нашем случае это диапазон $E$3:$E$7.     Теперь для получения значения в столбик «Найденная стоимость» согласно условию в столбике «Номенклатуру которую ищем» нам нужна формула:

       {=ВПР (A3; ДВССЫЛ («’»&ИНДЕКС ($E$3:$E$7; ПОИСКПОЗ (ИСТИНА; СЧЁТЕСЛИ (ДВССЫЛ («’»&$E$3:$E$7  &»‘!C1:C50″) ;A3)> 0;0)) &»‘!C:D» );2;0)}

     Как видите, формула выделена фигурными скобками, это означает, что её необходимо вводить как формулу массива с помощью горячего сочетания клавиш Ctrl+Shift+Enter. Это самое главное условие правильной работы этой формулы в других случаях она не будет работать.      Формула объемная и требует объяснения принципа её работы.  Функция ДВССЫЛ необходима, что бы конвертировать текстовые отображения ссылок на листы нашей книги в действительные. Сам принцип работы функции ДВССЫЛ, я описывать не буду, рассмотрим только необходимую формулу для этапа нашего вычисления: СЧЁТЕСЛИ (ДВССЫЛ («’»&$E$3:$E$7 &»‘! C1:C50″); A3).

     Как следствие, при вычислении этого блока у нас формируется массив из некоторого количества значений, которые мы ищем, и которые повторяются на листах нашего списка, и имеет вид: СЧЁТЕСЛИ({2;0;0;0};A3). О работе функции СЧЁТЕСЛИ я писал отдельно и более подробно.

     Следующим рассматриваемым блоком нашей композиции будет формула: ПОИСКПОЗ (ИСТИНА; СЧЁТЕСЛИ (ДВССЫЛ («’»&$E$3:$E$7 &»‘! C1:C50″); A3)>0;0), которая и работает с указанным выше блоком такого вида: ПОИСКПОЗ (ИСТИНА; СЧЁТЕСЛИ ({2;0;0;0}; A3)>0;0). Вследствие чего мы узнаем, какую позицию занимает имя листа в нашем массиве списке листов $E$3:$E$7. Теперь же при помощи функции ИНДЕКС мы получаем название листа, и можем применить его имя в структуре функции ДВССЫЛ, а она передаст полученное значение уже далее функции ВПР. Пошагово это будет выглядеть так:

1. =ВПР (A3; ДВССЫЛ («’»&ИНДЕКС ({«Таблица1″; « Таблица2»; « Таблица3»; «Таблица4»; «Таблица5»};1) &»‘! C:D»); 2;0);
2. =ВПР(A2;ДВССЫЛ(«’Таблица1′! C:D»);2;0);
3. =ВПР(A2;’Таблица1′!C:D;2;0).

     Ну, вот мы и получили универсальную формулу, которая производит поиск значений в Excel и является очень гибкой и удобной. В случаях, когда возникнет необходимость добавить в рабочую книгу еще листы с таблицами, то необходимо всего на всего прописать их в списке рабочих листов $E$3:$E$7, изменив предварительно ее размер или попросту изначально сделать ее динамическим диапазоном, и править формулу будет не нужно.

      Для большего удобства в столбике С, в графе «Где было найдено» можно прописать формулу которая будет наглядно показывать где была взята цифра, с какой таблицы вы получили значение, что значительно облегчает поисковую навигацию. Для получения названия таблицы необходима формула:

        {=ИНДЕКС ($E$3:$E$7; ПОИСКПОЗ (ИСТИНА; СЧЁТЕСЛИ (ДВССЫЛ («’»&$E$3 :$E$7&»‘! C1:C50″); A3) >0;0))}

Поиск по нескольким листам с помощью макроса VBA

     Для тех, кто хочет производить поиск значений в Excel по своей рабочей книге с помощью макросов или просто сделать рутинную операцию более автоматической предлагаю воспользоваться прописанной функцией пользователя, которая будет искать необходимое значение во всех, без исключения, даже в скрытых, листах рабочей книги, в которую вы ее пропишете. Макрос был найден на сайте excel — vba.ru, который любит такие фишки.

     Функция будет иметь следующий вид:

Function VLookUpAllSheets(vCriteria As Variant, rTable As Range, lColNum As Long, Optional iPart As Integer = 1) As Variant     Dim rFndRng As Range     If iPart <> 1 Then iPart = 2     For i = 1 To Worksheets.Count         If Sheets(i).Name <> Application.Caller.Parent.Name Then             With Sheets(i)                 Set rFndRng = .Range(rTable.Address).Resize(, 1).Find(vCriteria, , xlValues, iPart)                 If Not rFndRng Is Nothing Then                     VLookUpAllSheets = rFndRng.Offset(, lColNum — 1).Value                     Exit For                 End If             End With         End If     Next i End Function

     Расшифруются аргументы написанной функции так:

• rTable – прописывается таблица, как в обыкновенной функции ВПР, для поиска значений;
• vCriteria – аргумент, который указывает любое текстовое значение или ссылка на ячейку, которая содержит значение для поиска;
• lColNum – прописывается тот номер столбика из аргумента rTable, значение в котором нам необходимо изъять, возможно, использовать ссылку на столбик с помощью функции СТОЛБЕЦ;
• iPart – аргумент, в котором прописываем необходимый метод просмотра. Когда аргумент не указан или указан аргумент равно 1, в таком случае будет проводиться поиск с полным совпадением значений в ячейках. В таких случаях есть возможность применить символы подстановки: «*» и «?». Если же, в аргументе указано другое значение кроме 1, функция будет искать, и отбирать значения при частичном вхождении.

      Я надеюсь, что поиск значений в Excel функцией ВПР по нескольким листам у вас получился, и вы могли быстро собрать нужные данные в ваших таблицах, а также научились создавать удобные и классные отчёты. Если у вас есть чем дополнить меня пишите комментарии, я буду их ждать с нетерпением, ставьте лайки и делитесь полезной статьей в соц.сетях!

      Не забудьте подкинуть автору на кофе…

Основное назначение офисной программы Excel – осуществление расчётов. Документ этой программы (Книга) может содержать много листов с длинными таблицами, заполненными числами, текстом или формулами. Автоматизированный быстрый поиск позволяет найти в них необходимые ячейки.

Простой поиск

Чтобы произвести поиск значения в таблице Excel, необходимо на вкладке «Главная» открыть выпадающий список инструмента «Найти и заменить» и щёлкнуть пункт «Найти». Тот же эффект можно получить, используя сочетание клавиш Ctrl + F.

В простейшем случае в появившемся окне «Найти и заменить» надо ввести искомое значение и щёлкнуть «Найти всё».

Как видно, в нижней части диалогового окна появились результаты поиска. Найденные значения подчёркнуты красным в таблице. Если вместо «Найти все» щёлкнуть «Найти далее», то сначала будет произведён поиск первой ячейки с этим значением, а при повторном щелчке – второй.

Аналогично производится поиск текста. В этом случае в строке поиска набирается искомый текст.

Если данные или текст ищется не во всей экселевской таблице, то область поиска предварительно должна быть выделена.

Расширенный поиск

Предположим, что требуется найти все значения в диапазоне от 3000 до 3999. В этом случае в строке поиска следует набрать 3???. Подстановочный знак «?» заменяет собой любой другой.

Анализируя результаты произведённого поиска, можно отметить, что, наряду с правильными 9 результатами, программа также выдала неожиданные, подчёркнутые красным. Они связаны с наличием в ячейке или формуле цифры 3.

Можно удовольствоваться большинством полученных результатов, игнорируя неправильные. Но функция поиска в эксель 2010 способна работать гораздо точнее. Для этого предназначен инструмент «Параметры» в диалоговом окне.

Щёлкнув «Параметры», пользователь получает возможность осуществлять расширенный поиск. Прежде всего, обратим внимание на пункт «Область поиска», в котором по умолчанию выставлено значение «Формулы».

Это означает, что поиск производился, в том числе и в тех ячейках, где находится не значение, а формула. Наличие в них цифры 3 дало три неправильных результата. Если в качестве области поиска выбрать «Значения», то будет производиться только поиск данных и неправильные результаты, связанные с ячейками формул, исчезнут.

Для того чтобы избавиться от единственного оставшегося неправильного результата на первой строчке, в окне расширенного поиска нужно выбрать пункт «Ячейка целиком». После этого результат поиска становимся точным на 100%.

Такой результат можно было бы обеспечить, сразу выбрав пункт «Ячейка целиком» (даже оставив в «Области поиска» значение «Формулы»).

Теперь обратимся к пункту «Искать».

Если вместо установленного по умолчанию «На листе» выбрать значение «В книге», то нет необходимости находиться на листе искомых ячеек. На скриншоте видно, что пользователь инициировал поиск, находясь на пустом листе 2.

Следующий пункт окна расширенного поиска – «Просматривать», имеющий два значения. По умолчанию установлено «по строкам», что означает последовательность сканирования ячеек по строкам. Выбор другого значения – «по столбцам», поменяет только направление поиска и последовательность выдачи результатов.

При поиске в документах Microsoft Excel, можно использовать и другой подстановочный знак – «*». Если рассмотренный «?» означал любой символ, то «*» заменяет собой не один, а любое количество символов. Ниже представлен скриншот поиска по слову Louisiana.

Иногда при поиске необходимо учитывать регистр символов. Если слово louisiana будет написано с маленькой буквы, то результаты поиска не изменятся. Но если в окне расширенного поиска выбрать «Учитывать регистр», то поиск окажется безуспешным. Программа станет считать слова Louisiana и louisiana разными, и, естественно, не найдёт первое из них.

Разновидности поиска

Поиск совпадений

Иногда бывает необходимо обнаружить в таблице повторяющиеся значения. Чтобы произвести поиск совпадений, сначала нужно выделить диапазон поиска. Затем, на той же вкладке «Главная» в группе «Стили», открыть инструмент «Условное форматирование». Далее последовательно выбрать пункты «Правила выделения ячеек» и «Повторяющиеся значения».

Результат представлен на скриншоте ниже.

При необходимости пользователь может поменять цвет визуального отображения совпавших ячеек.

Фильтрация

Другая разновидность поиска – фильтрация. Предположим, что пользователь хочет в столбце B найти числовые значения в диапазоне от 3000 до 4000.

1. Выделить первый столбец с заголовком.
2. На той же вкладке «Главная» в разделе «Редактирование» открыть инструмент «Сортировка и фильтр», и щёлкнуть пункт «Фильтр».
3. В верхней строчке столбца B появляется треугольник – условный знак списка. После его открытия в списке «Числовые фильтры» щёлкнуть пункт «между».
4. В окне «Пользовательский автофильтр» следует ввести начальное и конечное значение плюс OK.

Как видно, отображаться стали только строки, удовлетворяющие введённому условию. Все остальные оказались временно скрытыми. Для возврата к начальному состоянию следует повторить шаг 2.

Различные варианты поиска были рассмотрены на примере Excel 2010. Как сделать поиск в эксель других версий? Разница в переходе к фильтрации есть в версии 2003. В меню «Данные» следует последовательно выбрать команды «Фильтр», «Автофильтр», «Условие» и «Пользовательский автофильтр».

Видео: Поиск в таблице Excel

---

Расскажи друзьям, если статья оказалась полезной:

    Видеоинструкции по использованию надстройки MulTEx