VBA 麻烦改一下谢谢了

VBA 麻烦改一下谢谢了

Sub 填充黄色()
X = Range("I65536").End(xlUp).Row
Range(Cells(2, "a"), Cells(X, 10)).Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlSolid
End With
Dim I%
For I = 2 To Range("I65536").End(xlUp).Row
If Cells(I, "i") = "EMS" Then
Range(Cells(I, "a"), Cells(I, 10)).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
End Sub
追问可以大概解释一下吗！
谢谢
一定采纳追答Sub 填充黄色()

X = Range("I65536").End(xlUp).Row '判断I列最后有数据的1行的行数，动态的

Range(Cells(2, "a"), Cells(X, 10)).Select 'A2：J最后1行这个区域 恢复颜色

With Selection.Interior

.ColorIndex = 0

.Pattern = xlSolid

End With

Dim I% '变量i

For I = 2 To Range("I65536").End(xlUp).Row '2到I列最后有数据的1行，动态的

If Cells(I, "i") = "EMS" Then

Range(Cells(I, "a"), Cells(I, 10)).Select 'A列某行：j列某行，填充为黄色，其他区域不填充颜色

With Selection.Interior

.ColorIndex = 6

.Pattern = xlSolid

End With

End If

Next

End Sub
采纳都无所谓，又不是给 RMB,哈哈！来自：求助得到的回答

Rows("2:100").Select '事先将2：100行的字体颜色恢复正常（根据实际修改100这个数字）
Selection.Font.ColorIndex = 0
Dim I% '定义变量为I
For I = 2 To Range("I65536").End(xlUp).Row '从第2行开始，直到I列最后1行有数据的行
If Cells(I, "i") = "EMS" Then '如果I列某行是 EMS ，那么
Rows(I).Select '该行字体变为红色
Selection.Font.ColorIndex = 3
Cells(I, 1).Interior.ColorIndex = 6
Cells(I, 10).Interior.ColorIndex = 6
End If
Next
End Sub