如何通过vba在Excel中插入文本

如果E列如“total”，如何在Z列中插入text =“here”？

我试试

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，简单的function可以处理它！

 =SEARCH("Total", A1) 

这将在单元格A1中查找string“Total”。

如果find该值，则返回可find的string中的位置。 如果找不到值，则返回一个#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