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

如果E列类似于“总计”，如何在Z列中插入text=“here”

我试着

---

无论如何，我不确定我是否理解正确：

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

---

您不需要使用VBA，简单的函数可以处理它

=SEARCH("Total", A1)

这将在单元格A1中查找字符串“Total”

如果找到该值，则返回字符串中可以找到该值的位置。 如果找不到该值，则返回一个

#值错误

因此，我们可以应用
ISERROR（）
函数来检查这些故障

将此与
IF（）
语句结合起来，您就可以得到答案了

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

试着这样做：

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

代码的问题是

comparia=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

+1实际解决问题中的问题
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