Как вставить текст в excel через vba

Question

Как вставить текст = «здесь» в столбце Z, если столбец E «total»?

Стараюсь

Qtde = 50 'lines 

For iLinha = 30 To Qtde 
    compara = celula Like "*" & SearchString 
    if compara then 
     Orçamento.Cells(iLinha, 26).Value = "here" 
    end if 
Next iLinha 

Answer 1

Проблема с кодом является

compara = celula Like "*" & SearchString

Вы не определили, что celula

Ваш код может быть написан как

Qtde = 50 'lines 
SearchString = "Total" 

For iLinha = 30 To Qtde 
    If Orçamento.Cells(iLinha, 1) Like "*" & SearchString Then 
     Orçamento.Cells(iLinha, 26).Value = "here" 
    End If 
Next iLinha 

Answer 2

Не уверен, что, если я правильно понял, то в любом случае:

Range("Z" & iLinha).Value = "here" 

Answer 3

Вам не нужно использовать VBA для того, простые функции могут справиться с этим !

=SEARCH("Total", A1) 

Это будет искать строку «Всего» в ячейке A1.

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

Поэтому мы можем применить функцию ISERROR() для проверки этих сбоев.

Пара с заявлением IF(), и вы получите ответ!

=IF(ISERROR(SEARCH("Total", A1)), "not here", "here") 

Answer 4

попробовать что-то вроде этого:

for i=1 to 100 'assuming your goes in rows 1 to 100 
    if InStr(1, cells(i,5).value, "Total", 1) then 
     cells(i,21).value ="here" 
    end if 
next