Excel макрос поиск в массиве по

This tutorial will demonstrate how to Search for (Find) a Value in an Array in VBA

There are a number of ways you can search for a string in an array – depending on whether the array is a one dimensional or multi-dimensional.

Searching in a One-Dimensional Array

To search for a value in a one-dimensional array, you can use the Filter Function.

Dim z As Variant
'filter the original array
  z = Filter(Array, String, True, vbCompareBinary)

The Syntax of the Filter option is a follows

Filter(Source Array, Match as String, [Include as Boolean], [Compare as vbCompareMethod])

The Source Array and the Match as String are required while the Include as Boolean and the Compare as vbCompareMethod are optional.  If these are not included they are set to True and vbCompareBinary respectively.

Find values that match the Filter

Sub FindBob()
   'Create Array
   Dim strName() As Variant
   strName() = Array("Bob Smith", "John Davies", "Fred Jones", "Steve Jenkins", "Bob Williams")
   
   'declare a variant to store the filter data in
   Dim strSubNames  As Variant

  'filter the original array
   strSubNames = Filter(strName, "Bob")

   'if you UBound value is greater than -1, then the value has been found
   If UBound(strSubNames ) > -1 Then MsgBox ("I found Bob")
End Sub

The second array will hold the values found by the filter.  If your UBound values are not -1, then the array has managed to find the  value that you were searching for.

You can also see how many times the text appears in the original array.

Sub CountNames()
   'Create array
   Dim strName() As Variant
   strName() = Array("Bob Smith", "John Davies", "Fred Jones", "Steve Jenkins", "Bob Williams")

  'declare an array to store the filter data in
   Dim strSubNames As Variant

   'filter the original array
   strSubNames = Filter(strName, "Bob")

   'if you add 1 to the UBound value, we will get the number of times the text appears
   Msgbox  UBound(strSubNames) + 1 & " names found." 
End Sub

Find values that DO NOT match the Filter

The [Include as Boolean] option allows you to find how many values in your array which DO NOT match your filter

Sub CountExtraNames() 
  'create array
  Dim strName() As Variant 
  strName() = Array("Bob Smith", "John Davies", "Fred Jones", "Steve Jenkins", "Bob Williams") 

  'declare an array to store the filter data in 
  Dim strSubNames As Variant 

  'filter the original array 
  strSubNames = Filter(strName, "Bob", False) 

  'if you add 1 to the UBound value, we will get the number of times the text appears 
  Msgbox  UBound(strSubNames) + 1 & " names found." 
End Sub

we have therefore amended this line:

strSubNames = Filter(strName, "Bob")

with this line:

strSubNames = Filter(strName, "Bob", False)

Using this line in the code, would return all the names that do NOT match “Bob”.

Case Sensitive Filters

You will find that the filter is case sensitive by default.  This is true for all VBA functions.  If you want to search for text that is not case sensitive, you need to amend your code slightly.

z = Filter(strName, "bob",, vbTextCompare)

Adding vbTextCompare to your filter line will enable your code to find “bob” or “Bob”.  If this is omitted, VBA by default uses vbBinaryCompare which will only look for data that is an EXACT match.  Notice in the example above, we have left out the [Include as Boolean] argument so True is assumed.

Option Compare Text

Alternatively, you can add the text Option Compare Text to the top of your module – this will make all the functions that you write in that particular module case insensitive.

Using a Loop to Search through an array

Using a loop is a little bit more complicated than using the Filter function.  We can create a function that will loop through all the values in the array.

Sub LoopThroughArray()
  'create array
  Dim strName() As Variant 
  strName() = Array("Bob Smith", "John Davies", "Fred Jones", "Steve Jenkins", "Bob Williams") 

Dim strFind as string 
strFind = "Bob"

Dim i As Long
'loop through the array
   For i = LBound(strName, 1) To UBound(strName, 1)
       If InStr(strName(i), strFind) > 0 Then
          MsgBox "Bob has been found!"
          Exit For
       End If
    Next i
End Sub

In order to find a part of the text string ie “Bob” instead of “Bob Smith” or “Bob Williams”, we needed to use the Instr Function in the If Statement.  This looked in the string returned by the loop from the Array to see if “Bob” was in the string, and as it was in the string, it would return a message box and then Exit the Loop.

Searching in a Multi-Dimensional Array

We also use the loop to search through a multi-dimensional array.  Once again, we need to create a function than enables us to loop through all the values in the array, but this time, we also need to loop through each dimension of the array.

Function LoopThroughArray()
   Dim varArray() As Variant
   Dim strFind As String
   strFind = "Doctor"
'declare the size of the array
   ReDim varArray(1, 2)
'initialise the array
   varArray(0, 0) = "Mel Smith"
   varArray(0, 1) = "Fred Buckle"
   varArray(0, 2) = "Jane Eyre"
   varArray(1, 0) = "Accountant"
   varArray(1, 1) = "Secretary"
   varArray(1, 2) = "Doctor"
'declare variables for the loop
   Dim i As Long, j As Long
'loop for the first dimension
   For i = LBound(varArray, 1) To UBound(varArray, 1)
'loop for the second dimension
      For j = LBound(varArray, 2) To UBound(varArray, 2)
'if we find the value, then msgbox to say that we have the value and exit the function
         If varArray(i, j) = strFind Then
            MsgBox "Doctor has been found!"
            Exit Function
         End If
      Next j
   Next i
End Function

В данной статье показаны 2 способа быстрого поиска значений в двумерных массивах.

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

оба способа получают на выходе отфильтрованный двумерный массив.

Способы формирования отфильтрованных массивов — разные:

первый способ использует функцию ArrAutofilterEx

второй способ — функцию ArraySearchResults

Основные отличия и особенности этих 2 способов поиска:

• ArrAutofilterEx позволяет задавать несколько критериев поиска (фильтрации)
• ArrAutofilterEx ищет вхождение искомого текста в значения заданных столбцов (неточное совпадение)
• ArrAutofilterEx при каждом вызове заново в цикле перебирает все элементы массива,
  соответственно, при поиске 10 значений время работы кода увеличивается в 10 раз
• ArraySearchResults позволяет использовать фильтрацию массива только по одному столбцу
• ArraySearchResults ищет совпадение искомого текста со значением столбца (точное совпадение)
• ArraySearchResults производит поиск в заранее сформированной текстовой строке
  Таким образом, перебираются все ячейки массива в цикле только один раз, и поиск 100 значений в массиве займёт ненамного больше времени, чем поиск 1 значения.

Примеры поиска в огромных массивах:

Поиск с использованием ArrAutofilterEx

Sub ПримерМедленногоПоискаВМассиве()
    t = Timer
    ИскомоеЗначение$ = 560
    СтолбецДляПоиска& = 3
 
    ' загружаем массив с листа
    arr = [a1:d30000].Value
 
    ' укорачиваем массив Arr, оставляя лишь те строки,
    ' где в заданном столбце есть искомое значение
    On Error Resume Next: Err.Clear
    resArr = ArrAutofilterEx(arr, СтолбецДляПоиска& & "=" & ИскомоеЗначение$)
 
    ' проверяем возвращеное функцией значение на наличие результатов поиска
    If Err Then Debug.Print "Такие строки в массиве не найдены": Exit Sub
 
    ' выводим из отфильтрованных строк значения первого столбца
    For i = LBound(resArr) To UBound(resArr)
        Debug.Print "Результат - строка " & i & " из " & UBound(resArr) & ": ", resArr(i, 1)
    Next i
    Debug.Print "Время: " & Timer - t & " сек."
End Sub

Поиск с использованием ArraySearchResults

Sub ПримерБыстрогоПоискаВМассиве()
    t = Timer
    ИскомоеЗначение$ = 560
    СтолбецДляПоиска& = 3
 
    ' загружаем массив с листа
    arr = [a1:d30000].Value
 
    ' формируем строку поиска
    ss$ = SearchString(arr, СтолбецДляПоиска&)
 
    ' укорачиваем массив Arr, оставляя лишь те строки,
    ' где в заданном столбце есть искомое значение
    resArr = ArraySearchResults(arr, ss$, ИскомоеЗначение$)
 
    ' проверяем возвращеное функцией значение на наличие результатов поиска
    If Not IsArray(resArr) Then Debug.Print "Такие строки в массиве не найдены": Exit Sub
 
    ' выводим из отфильтрованных строк значения первого столбца
    For i = LBound(resArr) To UBound(resArr)
        Debug.Print "Результат - строка " & i & " из " & UBound(resArr) & ": ", resArr(i, 1)
    Next i
    Debug.Print "Время: " & Timer - t & " сек."
End Sub

Код функции ArraySearchResults:

Function ArraySearchResults(ByRef arr, ByRef searchStr As String, ByVal txt As String, _
                            Optional ByVal Sep As String = "%$%") As Variant
    ' функция получает в качестве параметров массив Arr,
    ' и заранее сформированную строку SearchString из значений ячеек нужного столбца массива
    ' По этой строке SearchString функция ищет строки массива, в которые встречается значение txt,
    ' и возвращает усечённый массив, содержащий только подходящие строки
    ' Поиск ведётся по ТОЧНОМУ совпадению значений

    ro& = 0: spl = Split(searchStr, Sep & txt & Sep)
    If UBound(spl) = 0 Then Exit Function    ' нет в массиве нужных строк
    ' перебираем результаты поиска, вычисляя номера строк в исходном массиве
    For i = LBound(spl) To UBound(spl) - 1
        txt = spl(i): ro& = ro& + 1 + (Len(spl(i)) - Len(Replace(spl(i), Sep, ""))) / Len(Sep)  2
        spl(i) = ro&
    Next i
    ' подготавливаем массив для результатов:
    ' по ширине - как исходный, по высоте - содержащий столько строк, сколько найдено совпадений
    ReDim resArr(1 To UBound(spl), LBound(arr, 2) To UBound(arr, 2))
    ' заполняем новый массив
    For i = LBound(spl) To UBound(spl) - 1
        For j = LBound(arr, 2) To UBound(arr, 2)
            resArr(i + 1, j) = arr(spl(i), j)
        Next j
    Next i
    ArraySearchResults = resArr
End Function
 
Function SearchString(ByRef arr, ByVal ArrayColumn As Long, _
                      Optional ByVal Sep As String = "%$%") As String
    ' Объединяет все значения из столбца ArrayColumn массива Arr в одну текстовую строку,
    ' в качестве разделителя элементов используя строку Sep
    ' Для ускорения конкатенации длинных строк используются
    ' промежуточные переменные buffer$ и buffer2$
    buffer$ = "": buffer2$ = "": Sep2$ = Sep$ & Sep$: Const BufferLen& = 6000
    On Error Resume Next: Err.Clear: SearchString = Sep2$
    If ArrayColumn > UBound(arr, 2) Or ArrayColumn < LBound(arr, 2) Then Exit Function
    For i = LBound(arr) To UBound(arr)
        buffer$ = buffer$ & Trim$(arr(i, ArrayColumn)) & Sep2$
        If Len(buffer$) > BufferLen& Then
            buffer2$ = buffer2$ & buffer$: buffer$ = ""
            If Len(buffer2$) > BufferLen& * 20 Then _
               SearchString = SearchString & buffer2$: buffer2$ = ""
        End If
    Next i
    SearchString = SearchString & buffer2$ & buffer$
End Function

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

Самый быстрый метод поиска в массиве

​Смотрите также​​Guest​strPass = arr2(UBound(arr2))​ Columns(1).Find(«Отсканирован пропуск «,​ Проблема в том,​ его выделением на​ использовании словаря все​ будут мнгновенные.​
​ массиве нет, если​ zna = zna​ If End SubНо​ Then​Есть массив данных​ для каждой строчки)​ уже не туда​
​ как совершать поиск​
​ АВЛ), но для​polestar​: Match(arr1) тоже должно​strPass = Replace(strPass,​ , xlValues, xlPart)​ что в каждом​ списке, никак нельзя?​ проще.​Hugo121​ <> -1, то​ & «|» &​ потом поняла, что​l.Cells(i, 1).Interior.Color =​ на одном листе​ — SQL медленнее​ пошли… .find это​ в массиве и​ любителя это очень​: Пишу в Excel​​ сработать​​ Chr(34), «»)​
​If Not FoundPropusk​ взвешивании количество строк​The trick​
​polestar​: Поиск в массиве​ по значению psk​ x Next zna​ это не вариант,​ RGB(190, 245, 116)​ (3 столбца -​ примерно в три​ я уже прошел​ батюшка гугл за​
​ сложная задача.​ макрос. По условию​alec​ElseIf str1 Like​ Is Nothing Then​ разное.​: Словарь — хеш​

​: Пишу в Excel​​ нужен постоянно, так​ в теле основной​ = Mid$(zna, 2)​ так как в​Else​

​ RAWDATA) и массив​​ раза.​ и пользуюсь… стоял​ 2 часа поиска​- остроумно!​ имею массив около​: Можно с помощью​ arrStr(1) Then​FAdr = FoundPropusk.Address​Сейчас я делаю​ таблица. Ищи на​ макрос. По условию​ как макрос читает​ программы вызывается вся​ Else zna =​

​ моем справочнике набежало​​If l.Cells(i, 1).Interior.Color​ данных на другом​marker_mc​ вопрос именно в​ мне ничем не​polestar​ 1 000 000​ словарей (подключите библиотеку​curIndex = curIndex​Do​ всё это вручную…​ форуме я полностью​ имею массив около​ тексты и заносит​ строка.​

​ arrZna End If​​ порядка 100 слов​ = xlNone Then​ листе (1 столбец​: Раз уж тема​
​ массиве VBA array​ помог. Находил что​: словарь — динамическая​
​ записей, каждая запись​ в tools-references-галку на​ + 1​
​Cells(FoundPropusk.Row, 6) =​ примерно 3 месяца​
​ исследовал ее работу.​ 1 000 000​ в базу слова,​
​Код работает крайне​ Set re =​ для поиска))))​
​l(i, 1).Cells.Interior.Color =​ — LIST).​ крутится дальше…​ который с листом​
​ то типа Array.FindIndex​ структура данных. Попробуйте,​ представляет из себя​

​ «Microsoft Scripting Runtime»)​

​arr2 = Split(str1,​ Split(FoundPropusk, «Отсканирован пропуск​ нужно, чтобы обработать​Сортировка словаря методом​ записей, каждая запись​

​ новые слова или​​ медленно, есть ли​ CreateObject(«vbscript.regexp») re.Pattern =​Есть идея создать​ RGB(227, 38, 54)​Берем значение в​мне как вариант​ никак не связан,​ — но vba​ не пожалеете.​ строку:​Sub myExample()​ » «)​ «)(1)​ все логи.​ реконструкции​ представляет из себя​ изменяет определённые параметры​ возможность ускорить… поиск​ zna re.ignorecase =​ некий массив из​
​End If​ первой ячейке на​ еще понравилось предложение​
​ а вот КБ​ ругается и не​
​Благодарю​формата — [|АНАЛИТИЧЕСКОЕ|89938|/;5951;1;/|],​Set arr1 =​arr1(curIndex) = Val(arr2(UBound(arr2)))​Set FoundPropusk =​Udik​

​polestar​​ строку:​ в словах, которые​ методов определения индекса​ True diapaz1.Interior.Pattern =​ справочника. Затем столкнуть​
​End If​ листе LIST и​ambasad,​ формируется именно с​ опознает что это​, буду изучать. А​ это пример. В​ New Dictionary​ElseIf str1 =​ Columns(1).Find(«Отсканирован пропуск «,​: Не совсем понятен​
​: Пришлось поменять ListBox​

​формата — [|АНАЛИТИЧЕСКОЕ|89938|/;5951;1;/|],​​ уже есть в​ заданного (не чётко)​ xlNone ‘ УБИРАЕТСЯ​
​ этот массив с​​Next i​ ищем его на​внести данные в​

​ листа через созданное​​ вообще такое, справка​ как на форуме​

​ первых двух вертикальных​​Set arr2 =​ «» Then​ After:=FoundPropusk)​ алгоритм. Как я​ на ComboBox, так​ это пример. В​ массиве…. поэтому этот​ элемента массива ничего​ ЗАЛИВКА For Each​ диапазоном, заданным пользователем​Next j​ листе RAWDATA, если​ массив с листа.​ имя в диспетчере​
​ про FindIndex тоже​ цитату вставлять?​
​ линиях ||,в строках​ New Dictionary​

​If flagMass Then​​Loop While FoundPropusk.Address​ понял, нужно находить​ же передаю ему​ первых двух вертикальных​

​ этап в программе​​ не дал.​ diapaz2 In Intersect(diapaz1,​ и в случае​End Sub​ находим — то​как записать в​ имен.​ молчит.​Апострофф​ массива записаны разные​
​arr1.Add 0, 1​For i =​ <> FAdr​ очередную строку, содержащую​ массив Mslov​
​ линиях ||,в строках​
​ самый главный и​Hugo121​
​ ActiveSheet.UsedRange).Areas ‘юзер может​ совпадения, ячейки будут​Diana987​ красим зеленым, нет​ array именованный диапазон?​Но вопрос уже​есть 2 массива​

​: Выделяешь нужное, жмешь​​ слова. Поиск осуществляется​arr1.Add 12, 2​

​ 2 To curIndex​​End If​Текущий вес:​

​ComboBox.List=Mslov​​ массива записаны разные​ мне нужно его​: Что за allBaza?​
​ выбрать несмежный диапазон​ закрашиваться.​: KuklP, СПАСИБО ОГРОМНОЕ!​
​ — красным и​вместо этого​
​ был решен… я​b = Array(bol,​

​ цитировать.​​ среди этих слов​arr1.Add 24, 3​If Abs(arr1(i) -​End Sub​и, если она​В ComboBox можно​ слова. Поиск осуществляется​ оптимизировать, желательно идеально​Если это массив​ If diapaz2.Count >​Но застряла на​ Пока ищет только​ т.д.​b = Array(bol,​ применил по наводке​ glush, ivash, kov,​polestar​Написал код​arr2.Add 1, 1​ arr1(i — 1))​K-SerJC​ соответствует условиям, выводить​ дописывать строку -​ среди этих слов​ в рамках VBA.​ строк из текстового​ 1 Then arrTemp​ моменте того, как​ по первому столбцу​Написала код, но​ glush, ivash, kov,​ LVL именно перебор.​

​ kul, nest, shap,​​: Т.е. если я​Public Function poisk(slovo$)​arr2.Add 13, 2​ > 9 Then​: в принципе не​
​ на отдельный лист​ элемент в начало​Написал код​Catstail​ файла, то их​ = diapaz2.Value For​ организовать поиск. Будет​

​ листа RAWDATA, попробую​​ он отрабатывает только​ kul, nest, shap,​ListIndex от Hugo​ shitl)​ правильно понял, Dictionary​ As Currency p​arr2.Add 25, 3​Worksheets(«out»).Cells(rowCur, 1).Value =​ учел только это​ какие-то данные (​ списка, но определение​
​Public Function poisk(slovo$)​: — ну значит​ 65 мегов его​ i = 1​ выдаваться ячейки только​
​ сделать, чтобы искал​ по первой ячейке,​ shitl)​ тоже интересно, но​m = Array(«a1»,​ нужен для того​ = -1 For​Enter = InputBox(«введите​ strPass​тогда уточнение:​ строка со словами​ индекса по заданному​ As Currency p​

​ прочитать текст в​​ можно получить секунд​ To UBound(arrTemp) For​

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

CyberForum.ru

Поиск значения в массиве VBA

​что то типа​​ при условии что​
​ «a2», «a3», «a4″,​ чтобы скопированные слова​ k = 0​ число») ‘ вводим​rowCur = rowCur​имеем в начале​ «отсканирован пропуск» и​ элементу, осуществляется в​ = -1 For​ итоге в словарь,​ за 10 так:​ j = 1​ данных из массива.​Hugo​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Dim r As Range​ такого можно?​ данные КБ идентичны​ «a5», «a6», «a7»,​ из массива в​
​ To hms -​
​ число которое будет​ + 1​ лист со строками​ пустые промежуточные строки​
​ ComboBox.ListIndex при его​ k = 0​ там его изменять-дополнять,​AllБаза = Split(CreateObject(«Scripting.FileSystemObject»).Getfile(Путькфайлу$).OpenasTextStream(1).ReadAll,​
​ To UBound(arrTemp, 2)​ Если в ячейке​: Смотрю пример.​Dim l As​
​b = Array([именованный​ расположению данных в​ «a8″​ нём находить и​ 1 sl =​
​ искаться в массивах​Exit For​
​ нескольких взвешиваний, которые​ не обнаружены). Сразу​ активации в списке,​ To hms -​ в конце выгрузить​ vbNewLine)Далее цикл по​
​ If re.test(arrTemp(i, j))​

​ «Купили барабан за​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub tt()​ Range​ диапазон])​

​ array.​​выбираю значение в​ по индексу записи​ Mslov(k) f =​If arr1.Exists(Val(Enter)) Then​
​End If​ разделены пробелами, т.е.​ встаёт вопрос зачем​ может кто знает​ 1 sl =​ всё в новый​ массиву, берём ключ​

​ Then diapaz2(i, j).Interior.Color​​ 200″ а в​​Dim a(), el,​​Set r =​LVL​И эти два​ combobox на userform,​
​ переходить назад в​
​ InStr(3, sl, «|»)​ MsgBox «1st Massiv»​Next i​ несколько диапазонов​ данные из каждого​ как в ComboBox​ Mslov(k) f =​

​ текст.​​ и кладём всё​ = vbYellow Next​ массиве слово «барабан»,​
​ i&​ ThisWorkbook.Sheets(«RawData»).UsedRange​

​: b=range(«XXX»).value​​ способа полностью подходят.​​ значения аналогичны значениям​​ массив с определённым​ sl = Mid(sl,​If arr2.Exists(Val(Enter)) Then​End If​
​в каждом отделенном​ файла копировать на​ определить индекс заданного​ InStr(3, sl, «|»)​polestar​ в словарь, массив​
​ Next Else If​ то ячейка не​With CreateObject(«Scripting.Dictionary»): .comparemode​Set l =​b — динамический​ Если уже крутить​ в массиве!​ индексом. Новое слово​ 2, f -​ MsgBox «2nd Massiv»​Erase arr1​ диапазоне участвует только​ очередной лист. Поиск​
​ элемента из списка​ sl = Mid(sl,​:​ убиваем.​
​ re.test(diapaz2.Value) Then diapaz2.Interior.Color​ закрасится как я​ = 1​ ThisWorkbook.Sheets(«LIST»).UsedRange​ массив типа Variant​ немного тему дальше…​Подскажите пожалуйста, каким​ заносить в Dictionary​ 1) If sl​

​End Sub​​flagMass = False​ один пропуск, много​ и выделение нужных​ без его активации,​ 2, f -​polestar​polestar​
​ = vbYellow End​ понимаю.​a = ThisWorkbook.Sheets(«RawData»).UsedRange.Value​
​For j =​XXX — название​

​ LVL предложил еще​​ образом совершать поиск​
​ и в массив​ = slovo$ Then​Alex4801​curIndex = 0​ строк текущий вес​ данных можно в​ т.е. программно.​ 1) If sl​, Фу… Пробую последний​
​: Можно попросить ответить​ If Next End​Sub Finder() Dim​For Each el​ 1 To r.Rows.Count​ именованого диапазона​ вариант через словарь…​ текста который вернул​ под одним и​ p = k​: Задан двумерный массив​strPass = «»​ и может быть​
​ памяти проделать. Наверное​polestar​ = slovo$ Then​ раз.​ на конкретный вопрос,​ Sub​ diapaz1 As Range​
​ In a: .Item(el)​

​For i =​​marker_mc​ было бы интересно​ комбобокс в массиве​ тем же индексом.​

​ Exit For End​​ и некоторое число.Найдите​If EOF(1) Then​

​ несколько зарегистрированных или​​ лучше будет, если​: Помогите разобраться с​ p = k​Ты используешь массив​ о ином способе​Попробовал с 202​ Dim diapaz2 As​ = 0&: Next​ 1 To l.Rows.Count​:​ как с ним​ b?​Выделяешь нужное, жмешь​ If Next psk​ его координаты (номер​
​ flgout = True​ только один вес​ выложите кусок файла-лога,​ функцией Find. Пытаюсь​
​ Exit For End​ (обозначим его A).​ поиска в массиве​ словами — сработало​ Range Dim zna​a = ThisWorkbook.Sheets(«LIST»).UsedRange.Columns(1).Value​
​If l.Cells(i, 1).Value​LVL,​ работать, потому что​на словах звучит​ цитировать.​ = p Return​ строки и столбец)​End If​ зарегистрирован?​ и объясните что​ заменит ею выше​ If Next psk​ Значит, в твоей​ элементов, которые представляют​

​Di585​​ As String Dim​For i =​
​ = r.Cells(j, 1).Value​
​это будет тогда​ до него еще​ так:​Вот её то​ End Functionslovo$ -​ в массиве.​Loop​
​выбираем из диапазона​ именно нужно вытянуть​ приведённый код, но​ = p Return​ программе должно быть:​ из себя тип​: Спасибо большое!, Буду​ arrZna(1 To 3)​ 1 To UBound(a)​
​ Then​ не массив, а​ не добирался и​Combobox1.Text найти какой​ и не вижу!​ искомое слово заключённое​Alex4801​Close #1​
​ строку отсканирован пропуск,​ на лист.​ не хочет работать.​ End Functionslovo$ -​Redim A(1 to​ данных String. Нужно​

​ пробовать разобраться с​​ As Integer Dim​If .exists(a(i, 1))​

​l.Cells(i, 1).Interior.Color =​​ просто диапазон судя​
​ пока что не​ по счету в​

​Catstail​​ в |​: Макрос берёт данные​

​End Sub​​ выбираем от туда​
​Kuzmich​Set psk =​ искомое слово заключённое​ …) As ….​
​ определить индекс массива,​ кодом, надеюсь он​ i As Long​ Then​ RGB(190, 245, 116)​

​ по записи​​ знаю с чем​
​ массиве b и​
​: — да массив​поисковое слово​ из активного Excel-листа​stasprv​ числовое значение пропуска​: Из строки с​ Mslov.Find(slovo$, lookat:=xlWhole)​ в |​ A(i)=… …=A(i)А теперь​ элемент которого содержит​ ускорится) Если по​ Set diapaz1 =​ThisWorkbook.Sheets(«LIST»).Cells(i, 1).Interior.Color =​
​Else: l(i, 1).Cells.Interior.Color​
​Hugo​ его едят.​ вернуть значение с​

​ ВООБЩЕ НЕ НУЖЕН!​​|​ в VBA-массив.​: Может быть несколько​выводим строки​ пропуском (их почему-то​
​dzug​поисковое слово​ будет​ заданную подстроку. По​ времени все получиться,​ Application.InputBox(«Введите диапазон», «Запрос»,​ RGB(190, 245, 116)​ = RGB(227, 38,​: a = [именованный_диапазон].Value​Hugo​
​ найденным индексом с​ Все храни в​hms — количество​Макрос написан для​ строк в одном​Пропуск​

​ несколько в каждом​​: Использовать Find -​|​Set Dict=CreateObject(«Scripting.Dictionary») Dict.Add​ поводу организации процесса​ буду дорабатывать макрос,​

​ Type:=8).Cells ‘ ДИАПАЗОН​​Else​ 54)​Но получите двумерный​: Да словарей тут​ массива m​ словаре.​ всех элементов в​ диапазона ячеек на​ взвешивании «Зарегистрирован вес»,​

​две строки между​​ взвешивании), например​ самый медленый способ…​
​hms — количество​
​ «|****|»,»|****|***…|» ‘::: Проверка​ вне этого вопроса,​ чтобы если слова​ ВЫБИРАЕТ ПОЛЬЗОВАТЕЛЬ diapaz1.Interior.Pattern​ThisWorkbook.Sheets(«LIST»).Cells(i, 1).Interior.Color =​End If​ массив.​ вагон был…​Заранее спасибо!​polestar​ массиве Mslov​ Excel-листе «A1:E10».​

​ но они будут​​ которыми разница >9​01,08,2016 08:24:32 Отсканирован​
​Я когда то​ всех элементов в​ наличия If Dict.Exists(Ключ)​ мне ваше мнение​ найдены, через нное​ = xlNone ‘​ RGB(227, 38, 54)​

​Next i​​marker_mc​Ищите по scripting.dictionary​
​LVL​: У меня этот​​p — результат​​Искомое число нужно​ идентичны, т.е. зарегистрирован​
​строку где зарегистрирован​ пропуск «D26,1 959395″​
​ писал поиск миллиона​
​ массиве Mslov​ Then B=Dict.Item(Ключ) ‘:::​ интересно, но потом​ количество столцовв найденной​
​ УБИРАЕТСЯ ЗАЛИВКА If​End If​
​Next j​: но а записать​

​Смысл такой -​​: Перебор всех значений​
​ массив потом проходит​ поиск, если -1,​
​ указать прямо в​ один и тот​

​ вес >45​​в каком виде​​ значений на миллион,​​p — результат​ Удаление Dict.Remove(Ключ) ‘:::​ и в другой​ строке выводилось слово​

​ diapaz1 Is Nothing​​Next​
​KuklP​ в переменную как​

​ запоминаем в словаре​​ в цикле или​ метод Join и​
​ то записи с​
​ самом коде в​ же вес​и так по​

​ выделить его значение?​​ выполнялось это более​

​ поиск, если -1,​​ и т.д.​ теме.​ найдено. Надеюсь все​

​ Then MsgBox «Сначала​​End With​: Diana, зарегистрируйтесь и​Dim a() ???​ слово и к​ словарь​

planetaexcel.ru

Поиск в массиве (VBA) без цикла.

​ их и перенести​​polestar​ программы вызывается вся​ данный момент времени,​

planetaexcel.ru

Макрос поиска значения в массиве (Макросы Sub)

​ в этом языке​​ Что пишет? Вы​
​ i = LBound(arrZna)​ это всё решаемо,​ на листе RAWDATA,​: в какую переменную?​ словарю и по​ циклом, каким образом​Есть метод Find,​
​Код работает крайне​ строк и 5​: Спасибо за Ваш​Columns(«A:A»).Select​ в другое место,​:​ строка.​ нужно их знать,​ функцию Split​
​ выбираете диапазон на​ To UBound(arrZna) с​ если нужно решать.​ а в макросе​
​ Массив и есть​
​ слову берём номер​ это делать? как​
​ пробовал вставить в​ медленно, есть ли​
​ столбцов. '"1 To"​ труд, но, к​
​Selection.Replace What:=".", replacement:=",",​ где уже вычислять​
​Благодарю​Код работает крайне​
​ чтобы внести соответствующие​Alex77755​ другом листе или​
​ этого момента начинается​ Может не нужно?​
​ у Вас на​ переменная​ (ну или что​
​ пользоваться for ...​
​ программу, но у​
​ возможность ускорить... поиск​

​ используется, чтобы порядковый​​ сожалению, когда открываю​ LookAt:=xlPart, _​ разницу?​, но всё же​ медленно, есть ли​
​ корректировки, которые хранятся​: Попробуй так​ в пустой части​ ошибка Set diapaz2​KuklP​ листе LIST.​

​marker_mc​​ там запомнили…) И​ next я знаю,​
​ меня он не​ методов определения индекса​ номер первой строки​ файл и нажимаю​SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,​K-SerJC​ как её запустить.​ возможность ускорить… поиск​ в подблоках /…/.​Mslov=Split(CreateObject(«Scripting.FileSystemObject»).Getfile(Name).OpenasTextStream(1).ReadAll, «»)​
​ листа? Попробуйте так​ = diapaz1.Find(i, ,​: Чего ж сразу​

​Diana​​: Ок, попробую ради​ то, что запомнили​
​ но как по​ хочет работать. Пишу:​ заданного (не чётко)​ ‘и столбца был​ на кнопку ничего​ _​: так подойдет?​ Пишу в встроенном​ методов определения индекса​ Исходя из того​
​Hugo121​ Sub Finder1() Dim​ xlValues) If Not​
​ не сказали, что​

​: Надо на листе​​ интереса еще так​ — можно в​ array шерстить?​p=Mslov.Find(slovo)​​ элемента массива ничего​​ один, а не​ не происходит. Через​ReplaceFormat:=False​

​stasprv​​ редакторе VB в​ заданного (не чётко)​ что содержится в​: http://www.cyberforum.ru/pure-basic/​
​ diapaz1 As Range​
​ diapaz2 Is Nothing​ надо по всем​

​ LIST:​​ переделать. Спасибо. Хотя​ любой момент изменить.​marker_mc​в любом варианте​ не дал.​ ноль (ноль по​

​ разработчик запустил макрос,​​End Sub​: Добрый день, K-SerJC.​ Excel, функция Filter​
​ элемента массива ничего​ этих подблоках, к​polestar​ Dim diapaz2 As​ Then zna =​ столбцам? Тогда гораздо​
​1) Берем первую​ через цикл уже​Хотя конечно на​: вопрос снят!​ пишет Empty​Catstail​ умолчанию), чтобы ‘было​ после выбора файла​точки в числовых​
​ Спасибо, отличный алгоритм​ работает, а это​ не дал.​
​ ним добавляется новые​: —какова же длина​ Range Dim zna​ diapaz2.Address End If​ лучше использовать метод​ ячейку на листе​ давно работает))))​ 8 значений нет​
​LVL,​Пробовал через Filter,​: Попробуй загрузить этот​ удобно писать код,​ выдается ошибка «Run-time​ выражениях в экселе​ получился. Только, как​
​ капризная… исключительно.​polestar​ или корректируются уже​

​ этой строки(файла)​​ As String, re​

​ Do While Not​​ find. За один​ LIST и ищем​Dophin​
​ смысла словарь привлекать​
​спасибо за наводку.​ находит нужную строку,​
​ массив в словарь​ т.к. привычнее считать​
​ error: 32809. Application​ зло!​
​ я понял в​dzug​
​: Благодаря вашему совету​ существующие.​
​--что с ней​ As Object, arrTemp()​
​ diapaz2 Is Nothing​ проход цикла все​ есть ли такое​
​: задался вопросом можно​ (тем более что​
​ Сделал перебор значений​
​ но так как​ (Dictionary), а поисковое​
​ предметы с единицы,​ defined or object​
​исправленный файл вложил.​
​ моем примере нет​
​: В справочнике всё​
​ я уже частично​
​/;900;1;/​

​ надо делать​​ Dim arrZna, x​ diapaz2.Interior.Color = RGB(255,​ раскрасит. Пробуйте, если​ значение на листе​ ли как то​ искать нужно только​

​ в массиве через​​ мне нужен индекс​
​ слово используй как​
​ 'а не с​ defined error". Вероятно,​
​Udik​ машин более 45​
​ хорошо описано и​
​ абстрагируюсь от этого​Этот подблок говорит​--не можете выложить​
​ Dim i As​
​ 255, 0) Set​ не получится пишите​
​ RAWDATA, если нет,​ искать в массиве​
​ 1 значение при​ For Next​
​ массива, всю строку​
​ ключ.​ нуля. 'Long -​
​ я что-то делаю​
​: Вот код, который​
​ ny? поэтому он​
​ с примерами.​
​ термина в рамках​ о том, что​ реальный —выложите реалистический​ Long, j As​ diapaz2 = diapaz1.FindNext(diapaz2)​ в тему.​ то красим первую​ без перебора каждого​

​ каждом запуске кода)​​Выглядит так:​ предаю в Find,​polestar​ означает, что в​ не так?​ непосредственно файл обрабатывает.​ выдает разницу в​Sub mmm() With​ этой программы, но​ слово связано со​

​ пример​​ Long On Error​ If diapaz2.Address =​

​Diana987​​ ячейку в красный,​ элемента?​ — оставляйте перебор.​For i =​
​ не работает.​: Дело в том,​ массиве могут быть​stasprv​ Общий алгоритм такой:​
​ тех, которые весят​ Worksheets(1).Range(«A4:T12») s =​ всё же мне​ словом имеющее индекс​и для чего​ Resume Next Set​ zna Then Exit​: Все получилось! Всем​
​ если находим, то​Sub pp()​Словарь нужен когда​ 0 To 7​
​snipe​ что этот массив​ только числа ‘(ещё​: Спасибо, всё работает,​ идет построчное считывание,​
​ меньше. Скопировал данные​ InputBox(«Что ищем ??»,​ результат этой программы​ 900 и встречалось​
​ нужен поиск​

excelworld.ru

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

​ diapaz1 = Application.InputBox(«Введите​​ Do End If​ спасибо​ в зеленый.​
​Dim arr(1 To​ нужно найти например​ If ComboBox1.Text= m(i)​: может все таки​ динамический и постоянно​ может быть, например,​ только отбираются машины​ из строк, содержащих​ из лога, где​ , «s22″) Set​ нужно использовать в​ 1 раз. Индекс​нет желания угадывать​ диапазон», «Запрос», Type:=8).Cells​ Loop Next End​Катерина​
​2) Берем вторую​ 3, 1 To​ 10000 пар в​ Then iBook =​
​ файлик выложите​ меняется, количество записей​ текст). Причём числа​ с зарегистрированным весом​
​Текущий вес​ есть такие машины​
​ c = .Find(s,​ других модулях и​ слова хранится сразу​ ваши потребности​ ‘ ДИАПАЗОН ВЫБИРАЕТ​ If End Sub​: Помогите пожалуйста!!!!!!!!!!!!! мне​ ячейку на листе​ 2)​ двух несортированных списках,​ b(i) Exit For​polestar​ увеличивается, и сами​ могут быть ‘только​ менее 45 тн.​формируется массив весов.​ на лист, запустил​ LookIn:=xlValues) If Not​ они работают уже​ же после самого​Апострофф​ ПОЛЬЗОВАТЕЛЬ If diapaz1​Заранее спасибо за​ нужен программный код​ LIST……….и т.д.​Dim s​ ну или подсчитать​ End If Next​: Он весит 65​ записи изменяются. Поиск,​ целые (есть ещё​Udik​ Если​ пакрос… type mismatch.​ c Is Nothing​ не в Excel,​ слова, например: [|ПРОДВИНУТОСТЬЮ|92239|/;2;1;/|]​: …..[|ПРОДВИНУТОСТЬЮ|92239|/;2;1;/|][|ИСПОЛЬЗУЕШЬ|92240|/;900;1;/|][|МАКСИМУМУ|92241|/;173;1;/|][|ПРОДЕМОНСТРИРОВАН|92242|/;2;1;/|][|ЗАМЕЛЬКАЛИ|92243|/;92244;1;/|]….​ Is Nothing Then​ любую информацию и​ для для макросов​Diana987​arr(1, 1) =​ количество повторов уникальных.​ i​ мегов​ о котором я​ дробные числа). Dim​: Загадка, сейчас проверил​зарегистрированный вес​
​ Подскажите, пожалуйста, что​ Then firstAddress =​ т.е. нужен результат​ — индекс этого​И что вас​ MsgBox «Сначала выделите​ советы.​ excel.​
​: KuklP, надо на​ «первый»​Юрий М​Hugo​snipe​ говорю, как раз​ myArray(1 To 10,​ файл с сайта​меньше или равен​ я делаю не​ c.Address Debug.Print c.Address​ в том виде​ слова ПРОДВИНУТОСТЬЮ 92239,​
​ заставляет?​ диапазон!» Exit Sub​Alex77755​Дана таблица поставок​ листе LIST:​arr(2, 1) =​: Куда-то мой пост​: Комбобокс? Используйте индекс​: да он то​ и определяет тот​ 1 To 5)​ — нормально отработал.​ 45, переходим к​ так? Лог прикрепляю​ ss = c.Address​ о котором я​ встречалось со словом​Добавлено через 1 минуту​ End If Set​: а что ты​ материалов. вписано уже​1) Берем первую​ «второй»​ подевался)))​ (т.е. номер выбранной​ весь и не​ элемент, который нужно​ As Long ‘2.​ А на какой​ следующему взвешиванию. Если​stasprv​ Do Set c​ писал выше, сформировать​ с индексом 2,​Я там был​ diapaz1 = Intersect(diapaz1,​ ищешь? значения или​ 6 материалов и​ ячейку на листе​arr(3, 1) =​Hugo​
​ записи).​ нужен​ видоизменить или если​

​ Создаём в оперативной​​ строке ошибка вылетает?​ больше, проверяем массив​: Добрый день, Udik.​
​ = .FindNext(c) Debug.Print​
​ всё назад в​

​ 1 раз.​​ … не нашёл​ diapaz1.Worksheet.UsedRange) If diapaz1​ индексы?​ их значения и​ LIST и ищем​ «третий»​: Сапожник без сапог​Был бы пример​нужен лист с​ его нет, через​ памяти компьютера поименованные​

​K-SerJC​​ на пару с​ Наверное, я просто​
​ c.Address If c.Address​ строку и записать​
​Благодарю вас за​
​Добавлено через 1 минуту​ Is Nothing Then​
​For i​
​ даты поставки.​ есть ли такое​

​arr(1, 2) =​​Что стережём, то​ в файле…​ которого вы массив​ ReDim сделать новую​​ области — ‘переменные,​: проверил, отбирает зарегистрированные​ разницей 9. Нашли​ не на столько​
​ <> firstAddress Then​ её txt файл.​ настойчивость, как и​Выше я написал​
​ MsgBox «Диапазон пуст»​Find(i,​
​Мне нужен код​ значение на листе​ «яблоко»​ и имеем​marker_mc​ берете​ запись.​ которые понадобятся для​ >45​ такую — вносим​ хорошо знаю excel,​ ss = ss​
​Hugo121​
​ говорил, я ваше​
​ 1 000 000​

​ Exit Sub End​​Di585​ для кнопки «Добавить​ RAWDATA, если нет,​arr(2, 2) =​nerv​:​штук 10 заполненных​Апострофф​ написания кода. Dim​и текущие с​ номер пропуска на​ как Вы, поэтому​ & » «​: Вместо позиции в​ предложение использую если​ таких блоков. Длина​ If With Worksheets(«Лист3″)​: Ищу слова из​ материал» т.е. чтобы​ то красим первую​ «вишня»​: с ADO (sql)​Hugo,​ строчек​: Много слов и​ myNumber As Long​ разницей >9​ лист.​ описываю задачу исходя​ & c.Address End​ массиве в словаре​ лучшего не предложится.​ строки тоже написал​ arrZna = .Range(«A1″,​ списка. В этом​ я на нее​ ячейку в красный,​arr(3, 2) =​ проще​я правильно понял,​ну и соответственно​ ошибок в коде​ Dim myRow As​добавил номер пропуска​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​ из своих знаний.​ If Loop While​ можно писать номера​ Дело в том,​ около 60 мегов.​ .Cells(.Rows.Count, 1).End(xlUp)).Value End​ то и проблема.​ нажала ввела в​ если находим, то​ «черешня»​Hugo​ что можно вернуть​ названия столбцов​ (если речь об​ Long, myColumn As​ вычисляет​OOption Explicit​ Изначально у меня​ Not c Is​ в значениях.​ что запись в​Добавлено через 2 минуты​ With If Err​ Функция Find здесь​ открывающее окно данные​
​ в зеленый.​s ‘= [поиск​

​: Но дольше​​ номер значения по​polestar​ VBA) — psk​ Long Dim i​stasprv​Public Sub processF()​ есть текстовые файлы​ Nothing And c.Address​Или думаю тут​ массив, после того​Сообщение от​ Then MsgBox «Ошибка​
​ неуместна. Нужно что​ и они отобразились​2) Берем вторую​

​ в массиве arr,​​С ADO проще,​ счету из комбобокс?​: Я его не​ <> poisk Public​ As Long, j​: Наверное, я не​Dim str1 As​ с логами, каждый​ <> firstAddress End​ будет удобно так​ как слово уже​Alex77755​ чтения списка справочника»​ то другое, но​ в таблице.​ ячейку на листе​ по второму столбцу​ когда есть класс​Если правильно понимаю,​ беру с листа,​ Function poisk(slovo$) As​ As Long ‘3.​ совсем понятно написал.​ String, strPass As​ весит более 1​ If End With​ — из строки​ записывалось первый раз,​Попробуй так В​ Exit Sub End​ чтобы искало слово​Если не можете​ LIST……….и т.д.​ слова «вишня]​ от nerv или​ то вы предлагаете​ я его беру​ Long For k​ Помещаем в переменную​ Необходимо, чтобы одновременно​ String​ Гб, я их​ MsgBox ss, vbInformation,​ |ПРОДВИНУТОСТЬЮ|92239|/;2;1;/| создать 3​ переносится в начало​ PureBasic функции Split​ If If IsArray(arrZna)​ в тексте из​ так помочь,то подскажите,есть​(извиняюсь за повтор)​MsgBox s ‘должно​ Function ADO_R_Dmitry()​ вернуть этот номер​ с файла txt.​ = 0 To​ «myNumber» целое число,​ выполнялись оба условия​Dim arr1(1 To​ копирую в xls​ «Искали » &​ словаря:​ массива при повторном​ нет.​ Then For Each​ ячейки, а не​ ли в просторах​KuklP​ вывести «2»​Но ведь есть​ и найти значение​ В файле одна​ UBound(Mslov) If InStr(Mslov(k),​ которое ‘надо будет​ в одном взвешивании.​

​ 200) As Double​​ на несколько листов,​ s End Sub​1 — ключ​ появлении в тексте,​

CyberForum.ru

Самый быстрый метод поиска в массиве

​Добавлено через 24 минуты​​ x In arrZna​ точное совпадение двух​ интернета файл,​: По-вашему это файл-пример?​End Sub​ строгие требования к​ по номеру в​
​ строка, в которой​ «|» & slovo​ искать в массиве​ Машина с весом​Dim curIndex As​ т.к. на один​Hugo121​
​ «ПРОДВИНУТОСТЬЮ», значение «номер​
​ таким образом, я​Сообщение от​ zna = zna​ ячеек.​где перечислены все​ И я не​есть ли такой​ данным. А с​ array​ есть блоки [….][….][….]…​ & «|») Then​ «myArray». ‘Я помещу​ более 45 тн.​ Byte​ лист помещается не​: Find работает только​ статуса»​ в начале массива​polestar​​ & «|» &​​Alex77755​
​ команды и их​ спрашивал, где берем.​ способ? что то​
​ словарём простор для​Вариант неплохой и​ и так далее,​ poisk = k:​ число «1», вы​ и текущее с​Dim fileToOpen, arr2​ более 65 000​ с диапазоном. По​2 — ключ​
​ кучкую часто встречаемые​….​ x Next zna​: как выставишь параметры​ значение для программирования​ Красим ячейку​ типа Find​

​ манёвра.​​ судя по всему​
​ из строки делаю​ Exit Function Next​ можете поместить другое​ разницей 9 тн.​Dim flagMass As​ строк примерно. Лог​
​ массиву можно использовать​ «ПРОДВИНУТОСТЬЮ», значение 92239​ слова, а редкие​[|ПРОДВИНУТОСТЬЮ|92239|/;2;1;/|]​ = Mid$(zna, 2)​ поиска​

​ в эксель,мне их​​в каком листе​Заранее спасибо.​nerv​ исключает перебор, но​ массив Split(…,»») и​ poisk = -1​ целое число. myNumber​ Было бы отлично,​ Boolean, flgout As​ прикрепляю​ Index(), но простой​3 — ключ​ смещаются на периферию.​[|ИСПОЛЬЗУЕШЬ|92240|/;900;1;/|]​ Else zna =​LookAt:=xlWhole — ячейка​
​ не найти((​? Одним словом можете​Dophin​: не понял​ это только в​ дальше уже работаю​ End Function​ = 1 ‘4.​

​ если бы номер​​ Boolean​
​stasprv​

​ перебор массива быстрее,​​ «ПРОДВИНУТОСТЬЮ», значение /;2;1;/​

​ Поэтому массив постоянно​​[|МАКСИМУМУ|92241|/;173;1;/|]​ arrZna End If​
​ целиком​Читайте Правила форума,​
​ ответить? И жду​: и вдогонку. Как​ЦитатаHugo пишет:​
​ том случае если​ с массивом. В​
​snipe​ Помещаем в массив​

​ пропуска выводился шестизначный​​Dim arrStr(1 To​
​: Добрый день, Kuzmich.​ и заметно быстрее.​
​ну или второй​
​ меняется.​[|ПРОДЕМОНСТРИРОВАН|92242|/;2;1;/|]​
​ Set re =​
​LookAt:=xlPart — вхождение​ создавайте свою тему,​ файл.​ без цикла вставить​С ADO проще,​
​ сортировка комбобокса совпадает​
​ листе я пробовал​​: видите ли гонять​ ​ «myArray» данные из​ (сейчас 5 знаков)​ 3) As String​
​ Данные пропуска можно​
​polestar​​ключ «ПРОДВИНУТОСТЬЮ», значение​ ​polestar​
​[|ЗАМЕЛЬКАЛИ|92243|/;92244;1;/|]​
​ CreateObject(«vbscript.regexp») re.Pattern =​
​отнюдь! в твоей​
​ прикладывайте файл в​
​Diana987​
​ на лист этот​ когда есть класс​ с размещением данных​ организовать эту работу,​ цикл для поиска​ программы «Excel» ‘из​
​stasprv​Dim rowCur As​ выделить в любом​:​
​ 92239/;2;1;/​
​: — ничего этого​​…. Так я​ ​ zna re.ignorecase =​ процедуре ищется индекс​​ Excel​​: KuklP, извините, не​ массив? что то​ от nerv или​ в array, но​

​ через функцию ПОИСКПОЗ(),​​ не совсем рациональное​ активного листа. For​: а как это​ Long, i&​ виде. Вы мне​Благодарю​Теперь при анализе​ НЕ НУЖНО БУДЕТ​ представил элементы массива​ True On Error​

​Добавлено через 2 минуты​​Эта тема закрыта​ увидела сообщения до​ видел про Join,​ Function ADO_R_Dmitry() ну,​ если этот порядок​ всё работает и​ решение​ i = 1​ определить? Всплывает просто​arrStr(1) = «*Текущий​ и так значительно​, всех за ликбез.​ по ключу легко​ ДЕЛАТЬ. Словарь ищет​ Mslov. Ищется индекс​ GoTo 0 diapaz1.Interior.Pattern​Find(arrZna(i), LookAt:=xlPart) так​Di585​ цитаты. Красим на​ но не разглядел,​ так зачем много​ будет разным, то​ быстро, но когда​тем более что​ To UBound(myArray, 1)​

​ окно с ошибкой​​ вес*»​ облегчите задачу. Конечно,​ Придётся в самом​ без лишних операций​ данные очень быстро.​ элемента массива в​ = xlNone ‘​
​ вхождение искать​: Добрый день! Уважаемые​ листе LIST.​ а сейчас разобраться​ раз одно и​ соответственно получим не​ количество записей перевалило​ у вас очень​
​ Step 1 For​ и всё​arrStr(2) = «*Зарегистрированный​

​ в идеале в​​ деле, похоже, перейти​ меняем любое зависимое​Catstail​ котором содержится заданная​ УБИРАЕТСЯ ЗАЛИВКА For​Di585​ форумчане! Столкнулась со​http://www.fayloobmennik.net/3198703​ не могу.​ тоже набирать, если​ тот результат что​ за миллион и​ много записей (строк)​ j = 1​Xflash​

​ вес*»​​ виде 959395 (6-7​ в словарь.​ значение.​: Мне это нужно​ подстрока, например: |ЗАМЕЛЬКАЛИ|​ Each diapaz2 In​: Проблема в том,​

​ следующей задачей.​​Файл вроде прикрепила,​​Спасибо. Извините что​​ можно один раз​ ожидаем.​
​ количество столбцов стало​есть одна хитрая​ To UBound(myArray, 2)​: Подскажите пожалуйста, как​
​arrStr(3) = «*Отсканирован​ последних цифр), но​Быстрее в VB​А в финале​
​ делать, так как​Как можно организовать​ diapaz1.Areas ‘юзер может​ что большинство примеров​Имеется некий диапазон​ но не вижу.​

​ в одном топике,​​ сделать и потом​Но все таки​ не хватать, я​ технология которую Excel-исты​ Step 1 myArray(i,​ произвести поиск по​ пропуск*»​ это совсем супер.​ окромя перебора нет!​ можно выгрузить первый​ в тексте встречаются​ на VBA самый​ выбрать несмежный диапазон​ такие. А мне​ данных (ячейки, выделенные​KuklP​
​ но вопросы вроде​
​ использовать? Обычная практика.​ интересно на будущее,​ от этого отказался,​ мало применяют​ j) = Cells(i,​ массивам (для наглядности​rowCur = 1​stasprv​Hugo121​ словарь в массивы​ слова написанные с​ быстрый код решения​ If diapaz2.Count >​ нужно именно чтобы​
​ пользователем). И имеется​: Ок. С этим​ не сложные.​ Всю лишнюю/скучную/глупую рутинную​ каким образом получить​ а как писал​а именно библиотека​ j).Value Next j​ массивы в примере​With Application.FileDialog(msoFileDialogFilePicker)​: K-SerJC, посмотрел алгоритм​: Я там выше​ или двумерный массив,​ ошибками, буквенные абракадабры,​ этого вопроса?​ 1 Then arrTemp​искало слово в тексте​ некий справочник (слова,​ разобрались. Файл будет?​Dophin​

​ работу переложить на​​ этот индекс?​ макрос в Excel,​ ADODB​ Next i ‘5.​

​ созданы с небольшим​​.AllowMultiSelect = False​ более внимательно. Всё-таки​ перепутал — не​ отсортировать по собранным​ и пр. это​Добавлено через 18 минут​ = diapaz2.Value For​ из ячейки, а​ которые надо найти​ Или подождем, пока​: спасибо. Только мне​ класс/функцию.​Насчет файла… признаю​ так и пишу​

​которая позволяет применить​​ Цитата из задания:​ колличеством данных).​

​.Title = «Выбрать​​ он работает немного​ INDEX(), а MATCH()!​ статусам/частоте/иличтотамбудет, или выгрузить​ я потом удаляю.​Сообщение от​ i = 1​ не точное совпадение​ в заданном диапазоне).​ модеры закроют тему​ надо было индекс​ЦитатаHugo пишет:​ честно, специально не​ в нём. Дело​ sql для отбора​ «Найдите его координаты​Sub myExample ()​ файл» ‘заголовок окна​ не правильно. Наверное,​А когда перейдёте​

​ на лист и​​ Если я не​Alex77755​
​ To UBound(arrTemp) For​ двух ячеек.​ Причем слова эти​ за нарушение Правил,​
​ строки элемента.​
​А с словарём​ стал ложить сюда,​ в том, что​
​ записей​ (номер строки и​

​Dim Enter​​ диалога​ я недостаточно понятно​ на словарь -​ разобрать глазами.​ буду осуществлять такой​Mslov=Split(CreateObject(«Scripting.FileSystemObject»).Getfile(Name).OpenasTextStream(1).ReadAll, «») Hugo121​
​ j = 1​Спасибо, что обратили​​ могут быть в​ п.3?​​ну вообщем не​
​ простор для манёвра.пример​ чтоб не дали​

​ пробовал на PureBasic​поверьте работает в​ столбец) в массиве.»​Dim s​.Filters.Clear ‘очищаем установленные​ написал. Давайте попробую​ как раз от​Далее снова пройтись​

CyberForum.ru

Самый быстрый метод поиска в массиве

​ алгоритм записи в​​ и Alex77755​ To UBound(arrTemp, 2)​ внимание, действительно не​ середине, в начале​Hugo​ суть, раз нет​ маневра​
​ готового решения! Хотелось​ и Java, с​ разы быстрее чем​ ‘В «VBA» нет​Dim arr1 (1​ ранее типы файлов​ еще раз. Мне​
​ перебора избавитесь.​
​ циклом по ключам​ массив слов, то​Благодарю​ If re.test(arrTemp(i, j))​ совсем правильно сформулировала​ в конце текста.​: Словари-массивы нужны в​ специального способа, то​Hugo​ именно пару наводок,​ сохранением основного кода,​ поиск циклом​ готовых инструментов для​ to 3)​.Filters.Add «Text files»,​ необходим номер пропуска​polestar​ (взять с листа​ все эти ошибки​​вас, вставил в​​ Then diapaz2(i, j).Interior.Color​
​ в начале.​ В случае, если​ общем случае… особенно​
​ мне и циклом​: Я как-то сравнивал​ чтоб самому дойди…​ на VBA работает​вы бы приложили​ поиска в VBA-массиве​arr1 (1) =​ «*.log», 1 ‘добавляем​ машины, у которой​: По match где-то​
​ в массив) и​ будут размазаны по​ основной код, стало​ = vbYellow Next​С функцией Find​ эти слова содержаться​ если данных много.​

​ удобнее)​​ скорость работы -​ мне полезно, я​ быстрее.​ файлик — что​ какой-то информации. ‘Есть​ 0​ возможность выбора текстовых​ при взвешивании соблюдается​ читал есть ограничение​ сформировать итоговый текст​ всему массиву.​ работать быстрее… массив​ Next Else If​ все получилось)​ в ячейках выделленных​Массив в котором​Dophin​ словарь был быстрее.​

​ учусь)))))​​Hugo121​ бы конкретно под​ одно средство «Filter»,​arr1 (2) =​
​ log файлов​ одновременно два условия:​ на количество элементов​ (словари делать публичными,​polestar​
​ формируется за секунды.​ re.test(diapaz2.Value) Then diapaz2.Interior.Color​Но есть один​
​ пользователем , эти​ ищем циклом (одним)​
​: не, пример безусловно​ Можем ещё на​
​Hugo​
​: Читаете файл в​ вас написать​
​ но оно работает​ 12​.FilterIndex = 1​ 1. есть скачек​ в массиве.​
​ или промежуточно тоже​: Кто мешает удалять​polestar​ = vbYellow End​ вопрос, можно ли​ ячейки нужно выделить​ заносим в словарь,​ интересный, на будущее​
​ какой задаче проверить.​: Ну Вы же​ массив или построчно,​наименование столбцов, листов,​ только с одномерными​arr1 (3) =​ ‘устанавливаем тип файлов​ по модулю более​Hugo121​

​ выгрузить на лист​​ из словаря?​​: Вариант вообще без​​ If Next End​
​ как то ускорить​ цветом.​ массив который проверяем​
​ пригодится. Он же​Ну а пример​ сказали, что в​ загоняете всё в​ ну и немного​ массивами и ‘не​ 24​ по умолчанию​ 9 тн. между​: Кажется там осталось​ или в файл).​Samanta​

​ циклов Dim s$,​​ SubПриложите файл и​ работу макроса? Перебирая​Сначала реализовала данную​

​ циклом (одним) проверяем​​ не медленнее чем​
​ маневра — например​
​ комбобоксе то, что​ словарь, работаете только​ записей​
​ поможет в нашем​
​Dim arr2 (​
​.InitialFileName = ThisWorkbook.Path​ любыми интервалами (двумя​ ограничение как в​polestar​: Это вам просто​

​ a() As String,​​ опишите последовательность действий,​ в 600000 строках​ задачу через функцию​ по словарю.​

​ цикл?​​ в столбце числа​ и в массиве.​

​ с словарём.​​Не по теме:​ задании. ‘Поэтому нужно​

​ 1 to 3)​​ & «» ‘назначаем​ соседними строчками). Без​ 2003 версии, точно​: Ок.​ весь словарь допустим​ n& s =​

​ которые приводят к​​ 193 значения массива​ ЕСЛИ(ЕНД(ПРОСМОТР(2;1/ПОИСК(значения!справочник с данными;A2)));»Не​Ну а покраску​Может как нибудь​
​ тестом, или даты​ Т.е. возможно массив​

​И сомневаюсь что​​Return лет сто не​ что-то самим придумать.​arr2 (1) =​ папку отображения и​
​ разницы в плюс​
​ не знаю т.к.​Благодарю​ просмотреть на наличие​ «[|ПРОДВИНУТОСТЬЮ|92239|/;2;1;/|][|ИСПОЛЬЗУЕШЬ|92240|/;900;1;/|][|МАКСИМУМУ|92241|/;173;1;/|][|ПРОДЕМОНСТРИРОВАН|92242|/;2;1;/|][|ЗАМЕЛЬКАЛИ|92243|/;92244;1;/|]» a =​ ошибке.​ ушло больше 10​ найдено»;»найдено»)​ можно организовать разными​ можно так же​ не даты, или​ является источником комбобокса…​ на таких объёмах​ видел и насколько​ Предложу просмотр всех​

​ 1​​ имя файла по​ или в минус​ не использую.​. Буду пробовать!​ ошибок — визуально,​
​ Split(s, «|ЗАМЕЛЬКАЛИ|») n​Di585​

​ минут. Может быть​​Но так как​ способами, в зависимости​
​ и ПОИСКПОЗ прикрутить?​ нужно отбирать только​ А примера нет…​ стОит использовать Join​ я помню он​ элементов ‘массива в​arr2 (2) =​ умолчанию​Например:​stasprv​

​…и всё же​​ а мне как​​ = Len(a(0)) -​​: Я выбираю диапазоне​ через Словари? Или​ быстродействие функции оставляет​ от количества данных.​ или не стоит​ те строки, где​Private Sub ComboBox1_Change()​

​ — можно из​​ применяется вместе с​ поисках искомого текста.​ 13​
​.InitialView = msoFileDialogViewDetails​01,08,2016 03:48:21 Текущий​: Добрый день, уважаемые​ надеюсь на поиск​ любителю это сложно,​ Len(Replace(a(0), «[«, «»))но​ в 8. Строке​ не нужно в​ желать лучшего, решила​ Если не спешим​ заморачиваться и использовать​ есть определённый текст,​ MsgBox ComboBox1.ListIndex End​ словаря построчно писать​ GoSub​ For i =​arr2 (3) =​ ‘вид диалогового окна(доступно​ вес: 37,140​ форумчане!​ в массиве.​ всё же 1​ никаких гарантий по​ кода. В 34​ макросе прописывать все​

​ писать макрос.​​ — можно сразу​ циклы?​ ну или ещё​ Sub​ результат назад в​polestar​

​ 1 To UBound(myArray,​​ 25​​ 9 вариантов)If fileToOpen​​01,08,2016 03:48:21 Текущий​Обращаюсь к Вам​Мысль о переносе​ 000 000 слов.​
​ производительности?​ оставила просто diapaz1.Работает)спасибо)​

​ 193 значения.​​Написала обычный макрос​ и красить по​Dophin​
​ другие «или»…​Начало нумерации с​ файл.​: Я любитель, на​

​ 1) Step 1​​Enter=InputBox(«введите число») ‘​ = False Then​ вес: 36,620 -​ как к экспертам​

​ массива в словарь​​ Так я знаю,​Hugo121​polestar​arrZna(1) = «барабан»​ через функцию Find.​

CyberForum.ru

Поиск в массиве с определенными параметрами (Макросы/Sub)

​ одной ячейке, это​​: Sub pp()​Насчёт рутины -​
​ 0.​polestar​ профессионализм не претендую,​ For j =​ вводим число которое​ Exit Sub​ разница в этом​ знания vba. Мне​ и работы там,​ что все они​: Пробовал, на заре​
​: Пишу в Excel​
​arrZna(2) = «аккордион»​Sub Finder() Dim​ просто. Но долго.​Dim arr(2, 1),​ в общем со​marker_mc​
​: Проблемы со скоростью​ благодарю за наставление,​ 1 To UBound(myArray,​ будет искаться в​If .Show =​ и следующем взвешивании​
​ необходимо обработать более​ привела меня к​ сосредоточены в конце​ работы с этой​ макрос. По условию​arrZna(3) = «гитара»​ diapaz1 As Range​Файл не смотрел​ arr2()​ словарями аналогично, часто​: Цитатаmarker_mc пишет:​ считывания файла, формирования​ буду учится. По​ 2) Step 1​ массивах​ False Then Exit​ более 9 тн.​ 1 млрд строк,​ мысли сбросить весь​ массива — строки.​ программой, дело в​ имею массив около​Казанский​ Dim diapaz2 As​ — с работы​
​Dim s, z​ можно с небольшими​Насчет файла… признаю​ из него массива​ поводу вашего кода,​

​ ‘If … Then​​s = поиск​ Sub: If .SelectedItems.Count​01,08,2016 03:48:21 Текущий​ догадываюсь, что это​​ массив в ListBox​​ Я эту зону​ том, что таскать​ 1 000 000​: Конечно не нужно.​ Range Dim zna​ туда ходу нет.​arr(0, 1) =​ коррекциями использовать один​ честно, специально не​ и так же​ скажу, что он​ … ElseIf ..​ по массивам…​ = 0 Then​ вес: 26,060​ можно сделать оптимизировать,​ и искать там,​ визуально просматриваю и​ за собой строку​ записей, каждая запись​

​ Разместите список на​​ As String Set​Да, по примеру​ «первый»​ уже написанный код​
​ стал ложить сюда,​ потом запись массива​
​ будет ещё медленней,​ Else … End​
​Если число(enter) нашлось​ Exit Sub​
​2. и зарегистрированный​ но знаний не​ но почему-то не​
​ удаляю…. Всё же​ таким весом очень​ представляет из себя​ отдельном (скрытом) листе​ diapaz1 = Application.InputBox(«Введите​

​ — поудаляйте всё​​arr(1, 1) =​

​ambasad​​ чтоб не дали​ в виде одной​ так как есть​ If — ‘используется​ в первом массиве​fileToOpen = .SelectedItems(1)​ вес которой более​ хватает. Если есть​ работает ListBox.FindString(«|слово поиск|»),​ есть разница искать​ накладно и дальнейшая​ строку:​ например в ст.​ диапазон», «Запрос», Type:=8).Cells​ лишнее и разместите​ «второй»​: Может имеет смысл​

​ готового решения! Хотелось​​ строки нет никакой,​ записи имеющие в​ для выбора действия.​ MsgBox «нашел в​Open fileToOpen For​ 45 тн.​ такая возможность -​ результат даёт 0,​ ошибки среди 1000000​ обработка тоже связана​формата — [|АНАЛИТИЧЕСКОЕ|89938|/;5951;1;/|],​ А на Лист3.​ ‘ ДИАПАЗОН ВЫБИРАЕТ​ тут на форуме,​arr(2, 1) =​ заполнить массив с​ именно пару наводок,​ основная проблема это​ третьем блоке заключённые​

​ ‘Если в элементе​​ первом массиве»​ Input As #1​Например:​ помогите, пожалуйста.​ хотя слово искомое​ или в последней​ с вырезанием блока,​ это пример. В​ Можно попробовать использовать​ ПОЛЬЗОВАТЕЛЬ diapaz1.Interior.Pattern =​

​ если файл больше​​ «третий»​ того же листа?​ чтоб самому дойди…​ поиск в массиве.​ между| / …/​ массива искомое число.​Если число (enter)​End With​01,08,2016 03:47:51 Зарегистрированный​Ситуация следующая:​ там есть.​ сотке слов.​ потом его врезкой​ первых двух вертикальных​ регулярные выражения -​ xlNone ‘ УБИРАЕТСЯ​ 100к. И не​arr(0, 0) =​
​ тогда всё будет​
​ мне полезно, я​ Это основной затык​
​ |до сорока тысяч​ If myArray(i, j)​ нашлось в втором​Worksheets(«out»).UsedRange.ClearContents​ вес: 61,160 -​
​У меня есть​Hugo121​
​polestar​ на своё место…​ линиях ||,в строках​
​ правда, не знаю,​
​ ЗАЛИВКА If diapaz1​ забывайте, что ещё​ «яблоко»​ совпадать​
​ учусь)))))))))​ по скорости.​
​ таких /…/ вставок,​ = myNumber Then​ массиве MsgBox «нашел​Do Until flgout​
​ зарегистрированный вес более​ много текстовых файлов.​: А что это​
​: Помогите пожалуйста с​ ушёл от этого​ массива записаны разные​ сработает ли маска​

​ Is Nothing Then​​ есть архиваторы.​​arr(1, 0) =​​Слэн​Да, в КБ​Может кто знает​ поэтому я вырезаю​

​ ‘6. Запоминаем номер​​ в втором массиве»​On Error Resume​ 45 тн.​
​ Каждый из них​
​ за ListBox.FindString? Где​ решение задачи.​
​ принципа, т.е. работы​ слова. Поиск осуществляется​
​ с 193 условиями​ MsgBox "Сначала выделите​Если в рабочем​
​ "вишня"​: WorksheetFunction.Match() вам в​
​ тоже что и​
​ аналог VBA функции​
​ первый блок и​ строки и номер​End Sub​
​ Next​Номер пропуска машины​ - лог взвешивания,​
​ это?​Написать программу: Для​
​ с одной строкой,​
​ среди этих слов​


​ «или» Sub Finder1()​​ диапазон!» Exit Sub​ файле десятки тысяч​
​arr(2, 0) =​
​ помощь, но находит​ в Массиве и​ Split() в PureBasic.​ его сравниваю с​ столбца. myRow =​
​спасибо )​Line Input #1,​ можно взять отсюда:​ каждый содержит около​polestar​ массива из N​ перешёл на массив.​Написал код​
​ Dim diapaz1 As​ Else Set diapaz2​ строк — это​ «черешня»​
​ не индекс массива,​
​ расположение тоже такое​
​ Я не нашёл,​ заданным словом, а​
​ i myColumn =​sva​
​ str1​01,08,2016 03:47:51 Отсканирован​ 60 000 строк.​
​: Нашёл здесь​

​ целых чисел определить​​ Может вы мне​Public Function poisk(slovo$)​
​ Range Dim diapaz2​
​ = diapaz1.Find("барабан", ,​
​ не лишне упомянуть​s = Application.VLookup("вишня",​
​ а номер начиная​ же, но КБ​
​ приходится делать так:​
​ по вашему коду​
​ j ‘7. Выходим​: пербрать циклом​If EOF(1) Then​
​ пропуск «D26,1 961469″​

​Я копирую каждый​​https://msdn.microsoft.com/en-us/library/e5et1818.aspx​ индексы элементов,​ порекомендуете как правильно​ As Currency p​ As Range Dim​​ xlValues) If Not​​ в описании задачи,​ arr, 2, 0)​​ с единицы. если​​ формируется не с​Dim Mslov.s(1) hms.i=CountString(allBaza,»»)+1​ поиск будет осуществляться​ из циклов, т.к.​for i=1 to​ str1 = «»​ — отсюда необходимо​ файл на отдельный​Но не работает​
​равных минимальному.​
​ использовать метод Find,​
​ = -1 For​
​ zna As String,​ diapaz2 Is Nothing​ будет влиять на​
​arr2 = arr​ индекс тоже с​
​ массива, а с​ ReDim Mslov.s(hms) k.i=0​
​ по всей строке.​
​ надо было найти​ 3​On Error GoTo​
​ взять номер пропуска​ лист (пример прикреплен).​
​ и ListBox1.Items.IndexOf(), хотя​На языке на​
​ дело в том​ k = 0​
​ re As Object,​ Then zna =​
​ алгоритм решения задачи.​ReDim Preserve arr2(2,​
​ единицы, то все​
​ именованного диапазона EXCEL...​
​ For j.i=1 To​
​есть одна хитрая​ 'только одно число.​if arr1(i)=Enter then​
​ 0​Взвешивания машин друг​
​ На листе взвешивания​ весь список​ языке VBA или​ что как и​
​ To hms -​ arrTemp() Dim arrZna,​ diapaz2.Address End If​
​Если файл не​ 0)​ ок, иначе надо​ но я немножко​ hms slovo.s=StringField(allBaza,j, "")​
​ технология которую Excel-исты​ GoTo metka End​ msgbox "нашлось в​If str1 Like​ от друга разделены​
​ отделены пустыми строками​ListBox1.Clear​ OpenOffice BASIC.​ писал выше методом​ 1 sl =​
​ x Dim i​
​ Do While Not​ появится - придётся​
​z = WorksheetFunction.Match("вишня",​
​ корректировать..​
​ забегая на будущее...​
​ k=k+1 Mslov(k)=slovo EndIf​ мало применяют​
​ If Next j​ первом массиве"​
​ arrStr(2) Then​ пустыми строками.​
​ друг от друга.​ListBox1.List = Mslov​
​Очень срочно помогите​ Filter, я нахожу​
​ Mslov(k) f =​ As Long, j​
​ diapaz2 Is Nothing​ тему закрыть...​
​ arr2, 0)​nerv​ по принципу "а​
​ NextВ VBA, из​а именно библиотека​
​ Next i metka:​
​if arr2(i)=Enter then​
​arr2 = Split(str1,​
​Ваше решение запускать​
​Мне необходимо скопировать​
​Выводится очень быстро.​
​ пожалуйста.​
​ всю строку, но​
​ InStr(3, sl, "|")​ As Long On​
​ diapaz2.Interior.Color = RGB(255,​Diana987​
​MsgBox z​
​: я почему то​ мало ли...." во​
​ строки allBaza массив​ ADODB​
​ '8. Выводим результат​ msgbox "нашлось во​
​ " ")​ макрос по кнопке​
​ на отдельный лист​
​ Список разместил на​Catstail​
​ не могу узнать​
​ sl = Mid(sl,​ Error Resume Next​
​ 255, 0) Set​: KuklP, вроде прикрепила​End Sub​
​ сомневаюсь )​ избежании ошибки.​
​ путём применение Split(allBaza,"")​Не знаком... если​
​ на монитор. 'Символ​
​ втором масиве"​
​If Val(arr2(UBound(arr2))) <​
​ и выводить результат​
​ (или хотя бы​
​ страничку. Затык похоже​
​: Скажите пожалуйста, а​
​ индекс этого элемента.​
​ 2, f -​ Set diapaz1 =​
​ diapaz2 = diapaz1.FindNext(diapaz2)​
​KuklP​
​как то вот​
​ЦитатаHugo пишет:​


​за ListIndex спасибо,​​ формируется массив за​ ничего лучше моего​ «&» используется для​next​ 45 Then​ вверх листа отличное.​ как-то выделить) пропуска​
​ в моих любительских​​ я могу в​polestar​ 1) If sl​
​ Application.InputBox(«Введите диапазон», «Запрос»,​ If diapaz2.Address =​

​: У меня на​​ так может?​Ну а пример​ запомню что такое​ пол минуты (65​ не посоветуют, то​ соединения фрагментов текста​R Dmitry​Do Until str1​Pelena​ машин (в каждом​ мозгах окончательный.​ словарь вставить исправленный​: Я думаю что​ = slovo$ Then​

​ Type:=8).Cells ‘ ДИАПАЗОН​​ zna Then Exit​ Ваш файлообменник антивирус​Еще третий вопрос​ маневра — например​

​ тоже есть… и​​ мегов), а по​ буду осваивать. Благодарю​ ‘в одну строку.​: Ну так циклом​ = «» Or​

​:​​ взвешивании это срока​Hugo121​
​ блок и на​ если этот Find​
​ p = k​ ВЫБИРАЕТ ПОЛЬЗОВАТЕЛЬ If​

​ Do End If​​ благим матом орет.​ — как померить​ в столбце числа​ при условии когда​ этому коду около​ за совет -​ ‘vbCr — переносит​ по ним один​ EOF(1)​stasprv​ со словами «отсканирован​: Это вроде как​ первую позицию в​

​ нужен один или​​ Exit For End​ diapaz1 Is Nothing​ Loop Set diapaz2​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Public Sub www()​

excelworld.ru

Поиск в массиве VBA

​ нарушение Правил форума.​​ тонн (в каждом​
​ нет.​ словарь в массив,​
​ пройтись в цикле​ End Functionslovo$ -​ Sub End If​
​ diapaz2 Is Nothing​Dim l As​Dophin​
​ те строки, где​

​ Range, i&, j&​​: а не должно?​ есть определённый текст,​Hugo​

​похоже, что подход​​ Попробуйте, не пожалеете.​ ‘текст кода не​

planetaexcel.ru

Поиск элементов в двумерном массиве

​ 1).End(xlUp)).Value End With​​ Do While Not​ ThisWorkbook.Sheets(«RawData»).UsedRange​судя по моим​ другие «или»…все вышеописанное​ листа — то​

​ корне неверен​​ Redim не нужен.​ монитора и чтобы​ msgbox «В первом»​
​flagMass = False​ выделяет значение пропуска​ которых разница при​
​Hugo121​(Ключ) — это​ часто — то​|​
​ If Err Then​ diapaz2 Is Nothing​Set l =​ замерам оба метода​ можно сделать с​ можно на листе​marker_mc​Если бы массив​ было удобно читать​if arr2(i)=enter then​Else​ в столбец F​ процедуре взвешивания более​: Такого тоже нет​ слово которое ищется?​ пройтись один раз​hms — количество​ MsgBox «Ошибка чтения​ diapaz2.Interior.Color = RGB(255,​ ThisWorkbook.Sheets(«LIST»).UsedRange​ работают одинаково быстро.​ помощью ADO (SQL)​ формулой поискать.​: Всем добрый день.​ не менялся, то​ код. MsgBox «Номер​ msgbox «Во втором»​flagMass = True​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Report()​ 9 тонн (сейчас​ в VBA.​В словаре нет​ циклом и собрать​ всех элементов в​ списка справочника» Exit​ 255, 0) Set​For j =​слэн​ikki​Юрий М​Улучшаю себе один​ можно его предварительно​ строки: » &​end if​End If​Dim FoundPropusk As​ я это сравниваю​polestar​ понятия «первая позиция».​ словарь ключ/значение, ну​ массиве Mslov​ Sub End If​ diapaz2 = diapaz1.FindNext(diapaz2)​ 2 To r.Rows.Count​: а кто-то считает,​: а что мешает​: на лист можно​ код и уперся​ отсортировать. Тогда -​ myRow & vbCr​-=18880=-​ElseIf str1 Like​ Range​ формулами, вычитая одну​: Понятно, получается, что​ Все слова в​ или ключ/индекс массива,​p — результат​ On Error GoTo​ If diapaz2.Address =​For i =​ что find работает​ потестировать?​ и Find натравить.​ в то, что​ двоичный поиск. А​ & _ «Номер​R Dmitry​ arrStr(3) Then​Dim FAdr As​ текущую ячейку из​ из компонента ListBox,​ словаре ищутся одинаково​ если так удобнее.​ поиск, если -1,​ 0 If IsArray(arrZna)​ zna Then Exit​ 1 To l.Rows.Count​ без перебора?​я несколько раз​marker_mc​ тут правильно использовать​ так — словарь.​ столбца: » &​: че то я​arr2 = Split(str1,​ String​ следующей, в файле​ индекс по заданному​ быстро. Ты продолжаешь​Зато затем все​ то записи с​ Then For Each​ Do End If​If l.Cells(i, 1).Value​Diana​ сравнивал (для простых​: Ребята, поиск на​ массив array, но​ Можно, конечно, дерево​ myColumn End Sub​ end if написал​ » «)​Set FoundPropusk =​ вложении это видно).​ элементу, кроме как​ мыслить массивами. При​ поиски по словарю​ данным словом в​ x In arrZna​ Loop Next End​ = CLng(r.Cells(j, 1).Value)​: Добрый день!​ SQL-запрсов, без вычислений​ листе это Вы​ не могу понять​ поиска соорудть (красно-черное,​

​Спасибо)​

CyberForum.ru

​ вместо next ^)​

Completing remark to Jimmy Pena’s accepted answer

As SeanC points out, this must be a 1-D array.

The following example call demonstrates that the IsInArray() function cannot be called only for 1-dim arrays,
but also for «flat» 2-dim arrays:

Sub TestIsInArray()
    Const SearchItem As String = "ghi"
    Debug.Print "SearchItem = '" & SearchItem & "'"
    '----
    'a) Test 1-dim array
    Dim Arr As Variant
    Arr = Split("abc,def,ghi,jkl", ",")
    Debug.Print "a) 1-dim array " & vbNewLine & "   " & Join(Arr, "|") & " ~~> " & IsInArray(SearchItem, Arr)
    '----
    
        '//quick tool to create a 2-dim 1-based array
        Dim v As Variant, vals As Variant                                       
        v = Array(Array("abc", "def", "dummy", "jkl", 5), _
                  Array("mno", "pqr", "stu", "ghi", "vwx"))
        v = Application.Index(v, 0, 0)  ' create 2-dim array (2 rows, 5 cols)
    
    'b) Test "flat" 2-dim arrays
    Debug.Print "b) ""flat"" 2-dim arrays "
    Dim i As Long
    For i = LBound(v) To UBound(v)
        'slice "flat" 2-dim arrays of one row each
        vals = Application.Index(v, i, 0)
        'check for findings
        Debug.Print Format(i, "   0"), Join(vals, "|") & " ~~> " & IsInArray(SearchItem, vals)
    Next i
End Sub

Function IsInArray(stringToBeFound As String, Arr As Variant) As Boolean
'Site: https://stackoverflow.com/questions/10951687/how-to-search-for-string-in-an-array/10952705
'Note: needs a "flat" array, not necessarily a 1-dimensioned array
  IsInArray = (UBound(Filter(Arr, stringToBeFound)) > -1)
End Function

Results in VB Editor’s immediate window

SearchItem = 'ghi'
a) 1-dim array 
   abc|def|ghi|jkl ~~> True
b) "flat" 2-dim arrays 
   1          abc|def|dummy|jkl|5         False
   2          mno|pqr|stu|ghi|vwx         True

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

Поиск перебором значений

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

Sheets("Данные").Select
For y = 1 To Cells.SpecialCells(xlLastCell).Row
    If Cells(y, 1) = "123" Then
        Exit For
    End If
Next y
MsgBox "Нашел в строке: " + CStr(y)

Минусами этого так сказать «классического» способа являются: медленная работа и громоздкость. А плюсом является его гибкость, т.к. таким способом можно реализовать сколь угодно сложные варианты поиска с различными вычислениями и т.п.

Поиск функцией Find

Гораздо быстрее обычного перебора и при этом довольно гибкий. В простейшем случае, чтобы найти в колонке A ячейку, содержащую «123» достаточно такого кода:

Sheets("Данные").Select
Set fcell = Columns("A:A").Find("123")
If Not fcell Is Nothing Then
    MsgBox "Нашел в строке: " + CStr(fcell.Row)
End If

Вкратце опишу что делают строчки данного кода:
1-я строка: Выбираем в книге лист «Данные»;
2-я строка: Осуществляем поиск значения «123» в колонке «A», результат поиска будет в fcell;
3-я строка: Если удалось найти значение, то fcell будет содержать Range-объект, в противном случае — будет пустой, т.е. Nothing.

Полностью синтаксис оператора поиска выглядит так:

Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

What — Строка с текстом, который ищем или любой другой тип данных Excel

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

LookIn — Тип искомых данных. Может принимать одно из значений: xlFormulas (формулы), xlValues (значения), или xlNotes (примечания).

LookAt — Одно из значений: xlWhole (полное совпадение) или xlPart (частичное совпадение).

SearchOrder — Одно из значений: xlByRows (просматривать по строкам) или xlByColumns (просматривать по столбцам)

SearchDirection — Одно из значений: xlNext (поиск вперед) или xlPrevious (поиск назад)

MatchCase — Одно из значений: True (поиск чувствительный к регистру) или False (поиск без учета регистра)

MatchByte — Применяется при использовании мультибайтных кодировок: True (найденный мультибайтный символ должен соответствовать только мультибайтному символу) или False (найденный мультибайтный символ может соответствовать однобайтному символу)

SearchFormat — Используется вместе с FindFormat. Сначала задается значение FindFormat (например, для поиска ячеек с курсивным шрифтом так: Application.FindFormat.Font.Italic = True), а потом при использовании метода Find указываем параметр SearchFormat = True. Если при поиске не нужно учитывать формат ячеек, то нужно указать SearchFormat = False.

Чтобы продолжить поиск, можно использовать FindNext (искать «далее») или FindPrevious (искать «назад»).

Примеры поиска функцией Find

Пример 1: Найти в диапазоне «A1:A50» все ячейки с текстом «asd» и поменять их все на «qwe»

With Worksheets(1).Range("A1:A50")
  Set c = .Find("asd", LookIn:=xlValues)
  Do While Not c Is Nothing
    c.Value = "qwe"
    Set c = .FindNext(c)
  Loop
End With

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

Пример 2: Правильный поиск значения с использованием FindNext, не приводящий к зацикливанию.

With Worksheets(1).Range("A1:A50")
  Set c = .Find("asd", lookin:=xlValues)
  If Not c Is Nothing Then
    firstResult = c.Address
    Do
      c.Font.Bold = True
      Set c = .FindNext(c)
      If c Is Nothing Then Exit Do
    Loop While c.Address <> firstResult
  End If
End With

В ниже следующем примере используется другой вариант продолжения поиска — с помощью той же функции Find с параметром After. Когда найдена очередная ячейка, следующий поиск будет осуществляться уже после нее. Однако, как и с FindNext, когда будет достигнут конец диапазона, Find продолжит поиск с его начала, поэтому, чтобы не произошло зацикливания, необходимо проверять совпадение с первым результатом поиска.

Пример 3: Продолжение поиска с использованием Find с параметром After.

With Worksheets(1).Range("A1:A50")
  Set c = .Find("asd", lookin:=xlValues)
  If Not c Is Nothing Then
    firstResult = c.Address
    Do
      c.Font.Bold = True
      Set c = .Find("asd", After:=c, lookin:=xlValues)
      If c Is Nothing Then Exit Do
    Loop While c.Address <> firstResult
  End If
End With

Следующий пример демонстрирует применение SearchFormat для поиска по формату ячейки. Для указания формата необходимо задать свойство FindFormat.

Пример 4: Найти все ячейки с шрифтом «курсив» и поменять их формат на обычный (не «курсив»)

lLastRow = Cells.SpecialCells(xlLastCell).Row
lLastCol = Cells.SpecialCells(xlLastCell).Column
Application.FindFormat.Font.Italic = True
With Worksheets(1).Range(Cells(1, 1), Cells(lLastRow, lLastCol))
  Set c = .Find("", SearchFormat:=True)
  Do While Not c Is Nothing
    c.Font.Italic = False
    Set c = .Find("", After:=c, SearchFormat:=True)
  Loop
End With

Примечание: В данном примере намеренно не используется FindNext для поиска следующей ячейки, т.к. он не учитывает формат (статья об этом: https://support.microsoft.com/ru-ru/kb/282151)

Коротко опишу алгоритм поиска Примера 4. Первые две строки определяют последнюю строку (lLastRow) на листе и последний столбец (lLastCol). 3-я строка задает формат поиска, в данном случае, будем искать ячейки с шрифтом Italic. 4-я строка определяет область ячеек с которой будет работать программа (с ячейки A1 и до последней строки и последнего столбца). 5-я строка осуществляет поиск с использованием SearchFormat. 6-я строка — цикл пока результат поиска не будет пустым. 7-я строка — меняем шрифт на обычный (не курсив), 8-я строка продолжаем поиск после найденной ячейки.

Хочу обратить внимание на то, что в этом примере я не стал использовать «защиту от зацикливания», как в Примерах 2 и 3, т.к. шрифт меняется и после «прохождения» по всем ячейкам, больше не останется ни одной ячейки с курсивом.

Свойство FindFormat можно задавать разными способами, например, так:

With Application.FindFormat.Font 
  .Name = "Arial" 
  .FontStyle = "Regular" 
  .Size = 10 
End With

Поиск последней заполненной ячейки с помощью Find

Следующий пример — применение функции Find для поиска последней ячейки с заполненными данными. Использованные в Примере 4 SpecialCells находит последнюю ячейку даже если она не содержит ничего, но отформатирована или в ней раньше были данные, но были удалены.

Пример 5: Найти последнюю колонку и столбец, заполненные данными

Set c = Worksheets(1).UsedRange.Find("*", SearchDirection:=xlPrevious)
If Not c Is Nothing Then
  lLastRow = c.Row: lLastCol = c.Column 
Else
  lLastRow = 1: lLastCol = 1
End If
MsgBox "lLastRow=" & lLastRow & " lLastCol=" & lLastCol

В этом примере используется UsedRange, который так же как и SpecialCells возвращает все используемые ячейки, в т.ч. и те, что были использованы ранее, а сейчас пустые. Функция Find ищет ячейку с любым значением с конца диапазона.

Поиск по шаблону (маске)

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

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

With Worksheets(1).Cells
  Set c = .Find("т??т*", LookIn:=xlValues, LookAt:=xlWhole)
  If Not c Is Nothing Then
    firstResult = c.Address
    Do
      c.Font.Color = RGB(255, 0, 0)
      Set c = .FindNext(c)
      If c Is Nothing Then Exit Do
    Loop While c.Address <> firstResult
  End If
End With

Для поиска функцией Find по маске (шаблону) можно применять символы:
* — для обозначения любого количества любых символов;
? — для обозначения одного любого символа;
~ — для обозначения символов *, ? и ~. (т.е. чтобы искать в тексте вопросительный знак, нужно написать ~?, чтобы искать именно звездочку (*), нужно написать ~* и наконец, чтобы найти в тексте тильду, необходимо написать ~~)

Поиск в скрытых строках и столбцах

Для поиска в скрытых ячейках нужно учитывать лишь один нюанс: поиск нужно осуществлять в формулах, а не в значениях, т.е. нужно использовать LookIn:=xlFormulas

Поиск даты с помощью Find

Если необходимо найти текущую дату или какую-то другую дату на листе Excel или в диапазоне с помощью Find, необходимо учитывать несколько нюансов:

• Тип данных Date в VBA представляется в виде #[месяц]/[день]/[год]#, соответственно, если необходимо найти фиксированную дату, например, 01 марта 2018 года, необходимо искать #3/1/2018#, а не «01.03.2018»
• В зависимости от формата ячеек, дата может выглядеть по-разному, поэтому, чтобы искать дату независимо от формата, поиск нужно делать не в значениях, а в формулах, т.е. использовать LookIn:=xlFormulas

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

Пример 7: Найти текущую дату на листе независимо от формата отображения даты.

d = Date
Set c = Cells.Find(d, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not c Is Nothing Then
  MsgBox "Нашел"
Else
  MsgBox "Не нашел"
End If

Пример 8: Найти 1 марта 2018 г.

d = #3/1/2018#
Set c = Cells.Find(d, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not c Is Nothing Then
  MsgBox "Нашел"
Else
  MsgBox "Не нашел"
End If

Искать часть даты — сложнее. Например, чтобы найти все ячейки, где месяц «март», недостаточно искать «03» или «3». Не работает с датами так же и поиск по шаблону. Единственный вариант, который я нашел — это выбрать формат в котором месяц прописью для ячеек с датами и искать слово «март» в xlValues.

Тем не менее, можно найти, например, 1 марта независимо от года.

Пример 9: Найти 1 марта любого года.

d = #3/1/1900#
Set c = Cells.Find(Format(d, "m/d/"), LookIn:=xlFormulas, LookAt:=xlPart)
If Not c Is Nothing Then
  MsgBox "Нашел"
Else
  MsgBox "Не нашел"
End If

“I know well what I am fleeing from but not what I am in search of” – Michel de Montaigne

Introduction

This post covers everything you need to know about the VBA Find function. It explains, how to use Find, in simple terms. It also has tons of code examples of Find you can use right now.

If you want to go straight to an example of Find then check out How to do a Simple Find.

If you want to search for text within a string then you are looking for the InStr and InStrRev functions.

If you want to find the last row or column with data then go to Finding the Last Cell Containing Data

Download the Source Code

What is the VBA Find Function?

The Find function is very commonly used in VBA. The three most important things to know about Find are:

1. The Find function is a member of Range.
2. It searches a range of cells containing a given value or format.
3. It is essentially the same as using the Find Dialog on an Excel worksheet.

Introduction

Excel Find Dialog

To view the Excel Find dialog, go to the Home ribbon and click on Find & Select in the Editing section. In the menu that appears select Find(shortcut is Ctrl + F)

 
When  you do this the following dialog will appear:

 
The VBA Find function uses most of the options you can see on this Dialog.

How to Use Options With Find

To use the options you pass them as parameters to the Find function. This is similar to how you use worksheet functions. For example, the Sum function has a Range as a parameter. This means you give it a range when you use it.

The VBA Find uses parameters in the same way. You must give it the item you are searching for. This is the first parameter and it is required.

The rest of the parameters are optional. If you don’t use them then Find will use the existing settings. We’ll see more about this shortly.

The table in the next section shows these parameters. The sections that follow this, give examples and details of how to use these parameters.

VBA Find Parameters

The following tables shows all the Find parameters.

Important Note about Find Parameters

Keep the following in mind as it can cause a lot of frustration when using Find.

As you can see from the table most of the VBA Find parameters are optional. As we said earlier, if you don’t set a Find parameter it uses the existing setting.

For example, if you set the LookIn parameter to xlComments, it will search for a value in comments only. The next time you run Find(either from the Dialog or from VBA) the existing LookIn setting will be Comments.

The following code shows an example of this

' Search in comments only
Range("A1:A5").Find "John", LookIn:=xlComments
' Will search comments as this is the existing setting
Range("A1:A5").Find "John"

' Search in formulas only
Range("A1:A5").Find "John", LookIn:=xlFormulas
' Will search formulas as this is the existing setting
Range("A1:A5").Find "John"

 
This applies to the parameters LookIn, LookAt, SearchOrder, and MatchByte.

The Find Return Value

If the search item is found then Find returns  the cell with the value. That is, it returns a Range type of one cell.

If the search item is not found then Find returns an object set to Nothing.

In the following examples, you will see how to deal with the return value.

How to do a Simple Find

Let’s start with a simple example of the VBA Find. You need three things when using the Find function

1. The Range to search
2. The value you are searching for
3. The Range to store the returned cell

 
Let’s take the following sample data

 
We are going to search for the text “Jena” in the cells A1 to A5.

The following code searches for “Jena”. When it finds “Jena”, it then places the cell in the rgFound variable.

' Find the name Jena in the range A1:A5
Dim rgFound As Range
Set rgFound = Range("A1:A5").Find("Jena")

' Print cell address to Immediate Window(Ctrl + G)
Debug.Print rgFound.Address

 
The above code shows the most basic search you can do. If this is your first time using the VBA Find function then I recommend you practice with a simple example like this.

If you want to try these examples you can download the workbook from the top of this post.
 

When the Value is not Found

When you use the VBA Find function, there will be times when you do not find a match. You need to handle this in your code or you will get the following error when you try to use the returned range

 
The following code will give this error if the text “John” is not found in the range A1 to A5

Set rgFound = Range("A1:A5").Find("John")

' Shows Error if John was not found
Debug.Print rgFound.Address

 
What we need to do is check the return value like the following code shows

Set rgFound= Range("A1:A5").Find("John")

If rgFound Is Nothing Then
    Debug.Print "Name was not found."
Else
    Debug.Print "Name found in :" & rgFound.Address
End If

Using After with Find

The After parameter is used if you want to start the search from a particular cell. When, the Excel Find Dialog is used, the active cell is considered the After cell. In other words, this cell is the starting point for the search. In VBA, if no After parameter is specified then the search starts at the top-left cell of the range.

Example 1 Without After

Let’s look at the following code.

Set cell = Range("A1:A6").Find("Rachal")

 
Find will return the cell A2 as this is where the first “Rachal” is found.

Example 2 Using After

In the next example, we use after. We are telling VBA to start the search for “Rachal” after cell A2

Set cell = Range("A1:A6").Find("Rachal", After:=Range("A2"))

 
This will return the cell A6

Example 3 Wrapping Around

If a match is not found then the search will “wrap around”. This means it will go back to the start of the range.

In the following example, we are looking for Drucilla. We start our search After cell A2. Find will search from A3 to A6 and then will move to A1.

So the following code will return A1 as there is no text “Drucilla” from A3 to A6:

Set cell = Range("A1:A6").Find("Drucilla", After:=Range("A2"))

 
The search order for this example was A4, A5, A6, A1.

 
You can try these example for yourself by downloading the workbook from the top of the post.
 

Using LookIn with Find

Using LookIn allows you to search in Values, Formulas or Comments.

Important Note: When a cell has text only, this text is considered a formula AND a value. See the table below for details

 
We are going to use the following sample data.

A2 Contains “Apple” as a value only
A3 Contains  “Apple” as a formula only
A4 Contains “Apple” in  the comment only

 
The code below searches for “Apple” in the different types: value, formula, threaded comment and note.

To see a working example of this code you can download the source code from the top of this post.

' Searches in value, formula, threaded comment and note.
' https://excelmacromastery.com/excel-vba-find/
Sub UseLookIn()

    ' Finds A2
    Dim rgFound As Range
    Set rgFound = shLookin.Range("A1:A5").Find("Apple", LookIn:=xlValues)
    Debug.Print "Found 'Apple' as value in: " & rgFound.Address

    ' Finds A3
    Set rgFound = shLookin.Range("A1:A5").Find("Apple", LookIn:=xlFormulas)
    Debug.Print "Found 'Apple' as formula in: " & rgFound.Address

    ' Finds A4
    Set rgFound = shLookin.Range("A1:A5").Find("Apple", LookIn:=xlCommentsThreaded)
    Debug.Print "Found 'Apple' as comment threaded in: " & rgFound.Address
    
    ' Finds A5
    Set rgFound = shLookin.Range("A1:A5").Find("Apple", LookIn:=xlNotes)
    Debug.Print "Found 'Apple' as note in: " & rgFound.Address

End Sub

Using LookAt with Find

Using the LookAt function is pretty straightforward.

1. xlWhole means the search value must match the entire cell contents.
2. xlPart means the search value only has to match part of the cell.

 
The following example has “Apple” as part of the cell contents in A2 and it is the full contents in cell A3.

 
The first Find in the following code finds “Apple” in A2. The second Find is looking for a full match so finds A3.

' https://excelmacromastery.com/
Sub UseLookAt()

    Dim cell As Range

    ' Finds A2
    Set cell = Range("A1:A3").Find("Apple", Lookat:=xlPart)
    Debug.Print cell.Address

    ' Finds A3
    Set cell = Range("A1:A3").Find("Apple", Lookat:=xlWhole)
    Debug.Print cell.Address

End Sub

 
You can try these example for yourself by downloading the workbook from the top of the post.
 

Using SearchOrder with Find

The SearchOrder parameter allows us to search by row or by column. In the following sample data we have two occurrences of the text “Elli”.

 
If we search by row we will find the “Elli” in B2 first. This is because we search in the order row 1, then row 2 etc.

If we search by column we will find the “Elli” in A5 first. This is because we search in the order column A, the Column B etc.

 
The following code shows an example of using the SearchOrder with this sample data

' https://excelmacromastery.com/
Sub UseSearchOrder()

    Dim cell As Range

    ' Finds B2
    Set cell = Range("A1:B6").Find("Elli", SearchOrder:=xlRows)
    Debug.Print cell.Address

    ' Finds A5
    Set cell = Range("A1:B6").Find("Elli", SearchOrder:=xlColumns)
    Debug.Print cell.Address

End Sub

Using SearchDirection with Find

SearchDirection allows you to search forward or backward. So imagine you have the range A1:A7. Searching using xlNext will go in the order

A1, A2, A3, A4, A5, A6, A7

Searching using xlPrevious will go in the order

A7, A6, A5, A4, A3, A2, A1

 
Using xlNext with the sample data will return A2 as this where it finds the first match. Using xlPrevious will return A6.

' NOTE: Underscore allows breaking up a line
' https://excelmacromastery.com/
Sub UseSearchDirection()

    Dim cell As Range

    ' Finds A2
    Set cell = shData.Range("A1:A7") _
        .Find("Elli", SearchDirection:=xlNext)
    Debug.Print cell.Address

    ' Finds A6
    Set cell = shData.Range("A1:A7") _
        .Find("Elli", SearchDirection:=xlPrevious)
    Debug.Print cell.Address

End Sub

Using xlPrevious with After

It you use the After parameter with xlPrevious then it will start before from the After cell. So if we set the After cell to be A6 then the search order will be

A5,A4,A3,A2,A1,A7,A6.

The following code shows an example of this

' https://excelmacromastery.com/
Sub UseSearchDirectionAfter()

    Dim cell As Range

    ' Finds A2
    Set cell = shData.Range("A1:A7").Find("Elli" _
            , After:=Range("A6"), SearchDirection:=xlPrevious)
    Debug.Print cell.Address

    ' Finds A6
    Set cell = shData.Range("A1:A7").Find("Elli" _
            , After:=Range("A7"), SearchDirection:=xlPrevious)
    Debug.Print cell.Address

End Sub

Using MatchCase with Find

The MatchCase parameter is used to determine if the case of the letters matters in the search. It can be set to True or False.

• True – the case of the letters must match
• False – the case of the letters does not matter

 
The following sample list has two entries for “Elli”. The second has a small letter e

 
The following code examples show the result of setting MatchCase to True and False

' https://excelmacromastery.com/
Sub UseMatchCase()

    Dim cell As Range

    ' Finds A2
    Set cell = Range("A1:B6").Find("elli", MatchCase:=False)
    Debug.Print cell.Address

    ' Finds A6
    Set cell = Range("A1:B6").Find("elli", MatchCase:=True)
    Debug.Print cell.Address

End Sub

Using MatchByte with Find

The MatchByte parameter is used for languages with a double-byte character set. These are languages such as Chinese/Japanese/Korean.

If you are not using them then this parameter is not relevant. They are used as follows

• True means to match only double-byte characters with double-byte characters.
• False means to double-byte characters can match with single or double-byte characters.

Using the WildCard

We can use the asterisk symbol(*) as a wild card when searching for text. The asterisk represents one or more characters.
For example
“T*” will find any word that starts with T.
“To*” will find any word that starts with To.
“*y” will find any word that ends with y.
“*ey” will find any word that ends with ey.

The code below shows examples of using the wildcard based on this data:

' Examples of using the wild card
' https://excelmacromastery.com/excel-vba-find/
Sub WildCard()

    Dim rgFound As Range
    
    ' Finds Tom in A2
    Set rgFound = shWildCard.Range("A1:A6").Find("T*")
    Debug.Print rgFound.Value & " was found in cell " & rgFound.Address

    ' Finds Tim in A5
    Set rgFound = shWildCard.Range("A1:A6").Find("Ti*")
    Debug.Print rgFound.Value & " was found in cell " & rgFound.Address
    
    ' Finds Tommy in A4
    Set rgFound = shWildCard.Range("A1:A6").Find("*my")
    Debug.Print rgFound.Value & " was found in cell " & rgFound.Address
    
    ' Finds Ellen in A3
    Set rgFound = shWildCard.Range("A1:A6").Find("*len*")
    Debug.Print rgFound.Value & " was found in cell " & rgFound.Address
    
    ' Finds Helen in A6
    Set rgFound = shWildCard.Range("A1:A6").Find("*elen*")
    Debug.Print rgFound.Value & " was found in cell " & rgFound.Address
    
End Sub

Using SearchFormat with Find

Search Format is a bit different than the other parameters. It allows you to search for a cell format such as font type or cell color.

You need to set the format first by using the Application.FindFormat property. Then you set SearchFormat to True to search for this format.

In the following sample data, we have two cells formatted. Cell A5 is set to Bold and Cell A6 has the fill colour set to red.

 
The following code searches for the bold cell:

' Find the cell which has a bold format
' https://excelmacromastery.com/excel-vba-find/
Sub UseSearchFormat()

    Dim findText As String
    findText = "Elli"

    ' Clear previous formats and set new format
    Application.FindFormat.Clear
    Application.FindFormat.Font.Bold = True

    ' Finds A2
    Dim rgFound As Range
    Set rgFound = Range("A1:A6").Find(findText, SearchFormat:=False)
    Debug.Print "Found '" & findText & "' in cell: " & rgFound.Address

    ' Finds A5
    Set rgFound = Range("A1:A6").Find(findText, SearchFormat:=True)
    Debug.Print "Found '" & findText & "' in cell: " & rgFound.Address
    
    Application.FindFormat.Clear

End Sub

Using Wild Card with Format

You can search for a cell based on the format only. In other words, the value in the cell is ignored in the search. You do this by placing “*” in the search string.

The following code searches for a cell that is formatted – the cell color in this example is set to red. The contents of the cell do not matter:

' Find the cell which is formatted - contents do not matter
' https://excelmacromastery.com/excel-vba-find/
Sub UseSearchFormatWild()
    
    ' Clear previous formats and set new format
    Application.FindFormat.Clear
    Application.FindFormat.Interior.Color = rgbRed

    ' Finds A2 as it ignores the format and finds the first cell with any contents
    Dim rgFound As Range
    Set rgFound = shSearchFormat.Range("A1:B6").Find("*", SearchFormat:=False)
    Debug.Print "Found format in cell: " & rgFound.Address

    ' Finds A5 as this is first cell with the format set to interior color as red
    Set rgFound = shSearchFormat.Range("A1:B6").Find("*", SearchFormat:=True)
    Debug.Print "Found format in cell: " & rgFound.Address
    
    Application.FindFormat.Clear

End Sub

Important – Clearing Format

When you set the FindFormat attributes they remain in place until you set them again. This is something to watch out for.

For example, imagine you set the format to bold and then use Find. Then you set the format to font size 12 and use Find again. The search will look for cells where the font is bold AND of size 12.

Therefore, it is a good idea to clear the format before you use it as I have done in the above examples.

Application.FindFormat.Clear

 
You can see we used this in the second SearchFormat example above.

Multiple Searches

In many cases you will want to search for multiple occurrences of the same value.  To do this we use the Find function first. Then we use the .FindNext function to find the next item.

 
.FindNext searches based on the setting we used in the Find. The following code shows a simple example of finding the first and second occurrences of the text “Elli”.

' https://excelmacromastery.com/
Sub SearchNext()

    Dim cell As Range
    ' Find first - A2
    Set cell = Range("A1:A9").Find("Elli")
    Debug.Print "Found: " & cell.Address

    ' Find second - A5
    Set cell = Range("A1:A9").FindNext(cell)
    Debug.Print "Found: " & cell.Address

End Sub

 
Sometimes you won’t know how many occurrences there is. In this case we use a loop to keep searching until we have found all the items.

We use Find to get the first item. If we find an item we then use a Do Loop with .FindNext to find the rest of the occurrences.

FindNext will wrap around. That is, after it finds A9 it will continue the search at A1. Therefore, we store the address of the first cell we find. When FindNext returns this cell again we know we have found all the items.

The following code will find all the occurrences of Elli

' https://excelmacromastery.com/
Sub MultipleSearch()

    ' Get name to search
    Dim name As String: name = "Elli"

    ' Get search range
    Dim rgSearch As Range
    Set rgSearch = Range("A1:A9")

    Dim cell As Range
    Set cell = rgSearch.Find(name)

    ' If not found then exit
    If cell Is Nothing Then
        Debug.Print "Not found"
        Exit Sub
    End If

    ' Store first cell address
    Dim firstCellAddress As String
    firstCellAddress = cell.Address

    ' Find all cells containing Elli
    Do
        Debug.Print "Found: " & cell.Address
        Set cell = rgSearch.FindNext(cell)
    Loop While firstCellAddress <> cell.Address

End Sub

 
The output from this code is
Found: $A$2
Found: $A$5
Found: $A$8

Finding the Last Cell Containing Data

A very common task in VBA is finding the last cell that contains data in a row or colum. This does not use the VBA Find function. Instead, we use the following code to find the last row with data

' Find the last row with data in column A
LastRow = Cells(Rows.Count, 1).End(xlUp).Row

' Find the last row with data in column C
LastRow = Cells(Rows.Count, 3).End(xlUp).Row

 
To find the last column with data we use similar code

' Find the last column with data in row 1
lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column

' Find the last column with data in row 3
lLastCol = Cells(3, Columns.Count).End(xlToLeft).Column

Finding Cells with Patterns

If you want to find cells with certain patterns then you have to use the Like operator rather than Find.

For example, to find  the all the names starting with E you could use the following code

' Print all names starting with the letter E
' https://excelmacromastery.com/
Sub PatternMatch()

    Dim cell As Range
    ' Go through each cell in range
    For Each cell In Range("A1:A20")
        ' Check the pattern
        If cell Like "[E]*" Then
            Debug.Print cell
        End If
    Next

End Sub

To see a real-world example of using pattern matching check out Example 3: Check if a filename is valid.

An Alternative to using VBA Find

If you are expecting a large number of hits then using an array is a better option. You can read a range of cells to an array very quickly and efficiently.

The following code reads the cell values to an array and then reads through the array to count the items.

' https://excelmacromastery.com/
Sub UseArrayToCount()

    Dim arr As Variant
    ' read cell range to array
    arr = Sheet2.Range("A1:B25").Value

    Dim name As Variant, cnt As Long
    ' Go through the array
    For Each name In arr
        ' Count in the name 'Ray' is found
        If name = "Ray" Then
            cnt = cnt + 1
        End If
    Next name

    Debug.Print "The number of occurrences was: " & cnt

End Sub

Find and Replace

To  do a find and Replace you can use the Replace function. It is very similar to using the Find function.

The replace function is outside the scope of this post although a lot of what you read here can be used with it. You can see the details of it at Microsoft – VBA Replace Function

What’s Next?

Free VBA Tutorial If you are new to VBA or you want to sharpen your existing VBA skills then why not try out the The Ultimate VBA Tutorial.

Related Training: Get full access to the Excel VBA training webinars and all the tutorials.

(NOTE: Planning to build or manage a VBA Application? Learn how to build 10 Excel VBA applications from scratch.)