|
Sub App_FindCol()
Dim Rng, U_Rng, Temp_Rng As Range
Dim st_Rng As String
Application.FindFormat.Clear
Application.FindFormat.Font.ColorIndex = 3
Set Rng = Cells.Find(What:="*", LookIn:=xlValues, SearchFormat:=True)
st_Rng = Rng.Address
Set U_Rng = Rng
For Each Temp_Rng In Sheet2.UsedRange
Set Rng = Cells.FindNext(after:=Rng)
If Rng.Address <> st_Rng Then
Set U_Rng = Application.Union(U_Rng, Rng)
End If
Next
U_Rng.Interior.ColorIndex = 4
End Sub
红色字体的这条命令,查找到的始终是下一个非空单元格,忽略了Find参数中的查找颜色。
请问,代码的问题是出在了哪里?
|
|