如何用vba查找包含关键字的所有词,并将有关键字的那一行全部填充为红色...答:i3 = InStr(1, mysheet1.Cells(i1, i2), mysheet1.Cells(1, 4)) '获取关键词所在位置 If i3 > 0 Then '如果存在关键词,则这一行第1到10列单元格填充红色 mysheet1.Range(mysheet1.Cells(i1, 1), mysheet1.Cells(i1, 10)).Interior.Color = RGB(255, 0, 0)Exit For '退出...