[已解决]如何找出不同项

cb_clx

各位老师，如附件内容，如何把表一里F列不同于表二里G列的里面的委外单号找出来并标上颜色。
我自己做了一个，但昨天晚上还可以达到目的，今天早上来点击就失效了。不知道原因在哪里，请各位帮忙解答，在线等。

最佳答案

月排行榜 / 总排行榜

chart888

2017-7-8 11:44

1. Private Sub CommandButton1_Click()
   
2. Dim x As Integer, rg As Range
   
3. For x = 3 To 500
   
4.     Set rg = Sheet2.Range("G:G").Find(Sheet1.Cells(x, 6).Value)
   
5.     If rg Is Nothing Then
   
6.         Sheet1.Cells(x, 6).Interior.ColorIndex = 5
   
7.     Else
   
8.         Sheet1.Cells(x, 6).Interior.ColorIndex = 0
   
9.     End If
   
10. Next
    
11. End Sub

复制代码

跳转到最佳答案楼层

chart888

1. Private Sub CommandButton1_Click()
   
2. Dim x As Integer, rg As Range
   
3. For x = 3 To 500
   
4.     Set rg = Sheet2.Range("G:G").Find(Sheet1.Cells(x, 6).Value)
   
5.     If rg Is Nothing Then
   
6.         Sheet1.Cells(x, 6).Interior.ColorIndex = 5
   
7.     Else
   
8.         Sheet1.Cells(x, 6).Interior.ColorIndex = 0
   
9.     End If
   
10. Next
    
11. End Sub

复制代码

cb_clx

chart888 发表于 2017-7-8 11:44

能帮我分析下我拉代码错误原因吗？初学，还不清楚。

chart888

cb_clx 发表于 2017-7-8 11:50
能帮我分析下我拉代码错误原因吗？初学，还不清楚。

你的代码，我测试了下有没有问题，我是简写了而已
如果你同时打开多个工作表的话
可能会出现错误
比如Sheet2.Range("G:G").Find(Sheet1.Cells(x, 6), , , xlWhole)
同时打开两个工作表的话就会出现两个Sheet1,Sheet2
你可以写成这样
Set rg = Worksheets("表二").Range("G:G").Find(Worksheets("表一").Cells(x, 6), , , xlWhole)

cb_clx

chart888 发表于 2017-7-8 13:18
你的代码，我测试了下有没有问题，我是简写了而已
如果你同时打开多个工作表的话
可能会出现错误

谢谢！