如何用vba找到所有包含關鍵字的單詞，並用紅色的關鍵字填充所有的行？

根據問題的意思，問題如下:

①VBA程序代碼:

子gjci()

Dim i1，i2，i3，i4，i5

“出錯時繼續下壹步”忽略操作過程中可能出現的錯誤。

set my Sheet1 = this workbook . worksheets(" sheet 1 ")'定義sheet 1。

Mysheet1。範圍(" A2:J10000 ")。內飾。' pattern = xlnone '首先將A2: J10000設置為無填充。

對於i1 = 2到10000 '從第2行到第10000行。

對於i2 = 1到10 '從第二列到第10列。

如果mysheet1。Cells(i1，I2)& lt；& gt" " Then '如果單元格不為空，則

I3 = instr (1，mysheet1。單元格(i1，I2)，mysheet1。Cells (1，4))'來獲取關鍵字的位置。

如果i3 & gt0 Then '如果關鍵字存在，則該行1到10列中的單元格用紅色填充。

mysheet1。範圍(mysheet1。單元格(i1，1)，mysheet1。Cells(i1，10)). interior . color = RGB(255，0，0)。

' Exit For '退出For循環。

如果…就會結束

然後

末端接頭

程序代碼截圖

②②VBA程序運行前後的結果如下:

在程序運行之前

程序運行後。