如何在指定列中寻找

青青的河边草

在表中， R列最后数不会只停留在某个单元格，是会向下增加的，R列的起始是动态的，不会固定从Rn单元格开始，可以理解为R列中有一段连续的有数字的单元格，在S3单元格可以填入0至9任意一个数，点击钮，R列中只要个位数和S3内数字一样，那么这些数所在的单元格变成红色。注意：除符合条件的单元格变色，其它单元格不要改变背景色。

liulang0808

代码供参考。。。。

青青的河边草

liulang0808 发表于 2019-10-15 21:06
代码供参考。。。。

Private Sub CommandButton1_Click()

Application.Screenpdating = False
[r1].EntireColumn.Interior ColorIndex = 0
r = Cells(Rows.Count, "r").End(3).eow
arr = [r1].Resize(r)
s3 = [s3]
Set Rng = Nothing
For j = 1 To r
If Len(arr(j, 1)) > 0 Then
If Right(arr(j, 1), 1) - s3 = 0 Then
If Rng Is Nothing Then
Set Rng = Cells(j, "r")
Else
Set Rng = Union(Rns, Cells(j, "r"))
End If
End If
End If
Next j
If Not Rng Is Nothing Then Rng.Interior.ColorIndex = 3
Application.Screenupdat

End Sub
错误运行438，我错在那？

liulang0808

Set Rng = Union(Rns, Cells(j, "r"))

青青的河边草

liulang0808 发表于 2019-10-15 22:31
Set Rng = Union(Rns, Cells(j, "r"))

改正了，还是不行。

青青的河边草

请各位老师帮我看看错在那？运行错误提示“438”

青青的河边草

请各位老师帮我看看错在那？运行错误提示“438”

青青的河边草

请各位老师帮我看看错在那？运行错误提示“438”

大灰狼1976

抄错了很多地方吧。

1. Private Sub CommandButton1_Click()
   
2. 
   
3. Application.ScreenUpdating = False
   
4. [r1].EntireColumn.Interior.ColorIndex = 0
   
5. r = Cells(Rows.Count, "r").End(3).Row
   
6. arr = [r1].Resize(r)
   
7. s3 = [s3]
   
8. Set Rng = Nothing
   
9. For j = 1 To r
   
10. If Len(arr(j, 1)) > 0 Then
    
11. If Right(arr(j, 1), 1) - s3 = 0 Then
    
12. If Rng Is Nothing Then
    
13. Set Rng = Cells(j, "r")
    
14. Else
    
15. Set Rng = Union(Rng, Cells(j, "r"))
    
16. End If
    
17. End If
    
18. End If
    
19. Next j
    
20. If Not Rng Is Nothing Then Rng.Interior.ColorIndex = 3
    
21. Application.ScreenUpdating = True
    
22. 
    
23. End Sub

复制代码

青青的河边草

大灰狼1976 发表于 2019-10-16 12:43
抄错了很多地方吧。

很好用，谢谢，
但代码中除符合条件的单元格变色，其它单元格不要改变背景色没体现，麻烦您改动。