Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
поиск части текста макрос VBA
 
Всем доброго времени суток!
Я недавно начала работать в VBA, поэтому  у меня возник маленький вопрос. Я его оформила в Excel. Сама задача  очень простая, если её решать в Excel. Я бы использовала  =VLOOKUP("*"&A2&"*";Sheet2!B:D;3;0). Но я бы хотела это  автоматизировать в макросе. Я пыталась сделать через Formula.R1C1 и  Index Match, но насколько я поняла RC не может искать часть текста из  ячейки. Есть ли какие-нибудь другие варианты решения этого вопроса?

Может кто-то уже сталкивался?

Заранее спасибо за помощь!
 
Цитата
Есть ли какие-нибудь другие варианты решения этого вопроса?  
Использовать Find
 
Цитата
искать часть текста из  ячейки
Макрос, запускать при активном листе Tabelle1, значения подтягиваются в столбец В. В ячейке с Potato уберите пробел в конце
Код
Sub iType()
Dim i As Long
Dim iLastRow As Long
Dim FoundCell As Range
   iLastRow = Cells(Rows.Count, "C").End(xlUp).Row
   Range("B2:B" & iLastRow).ClearContents
 With Worksheets("Tabelle2")
  For i = 2 To iLastRow
    Set FoundCell = .Columns(2).Find(Cells(i, "A"), , xlValues, xlPart)
     If Not FoundCell Is Nothing Then
       Cells(i, "B") = .Cells(FoundCell.Row, "D")
     End If
  Next
 End With
End Sub
 
Код
Sub test()
Dim i&, cell As Range
With Sheets("Tabelle1")
    For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
        Set cell = Sheets("Tabelle2").Columns("b:b").Find(Trim(.Cells(i, 1).Value), lookat:=xlPart)
        If Not cell Is Nothing Then .Cells(i, 2).Value = cell(1, 3)
    Next i
End With
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
Спасибо большое!
Страницы: 1
Читают тему (гостей: 1)
Наверх