[已解决]find函数为什么找不到结果?

whele

我在sheet2里找和sheet1相同的内容的行,找到之后在那个数值后面写一个A


明明有相同值,但是用find命令就是找不到,这是为什么?


res = Sheet1.Range("A:A").find(WHAT:=Cells(i, 1).Value, LookAt:=xlWhole)

最佳答案

月排行榜 / 总排行榜

su45

2016-9-25 11:08

1. Sub find()
   
2.     Dim res As Range
   
3.     For i = 1 To [A65536].End(xlUp).Row
   
4.         Set res = Sheet1.Range("A:A").find(WHAT:=Cells(i, 1).Value, LookAt:=xlWhole)
   
5.         If Not res Is Nothing Then
   
6.             Sheet2.Cells(res.Row, 2).Interior.Color = RGB(156, 189, 222)
   
7.             Sheet2.Cells(res.Row, 2).Value = "A"
   
8.         End If
   
9.     Next
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

苏子龙

是否这个意思：
Sub find()
    Dim res
    With Sheet2
        .Range("b:b").Clear
        For i = 1 To [A65536].End(xlUp).Row
            res = ""
            On Error Resume Next
            res = .Range("A:A").find(WHAT:=Cells(i, 1).Value, LookAt:=xlWhole).Row
            On Error GoTo 0
            If res <> "" Then
                .Cells(res, 2).Interior.Color = RGB(156, 189, 222)
                .Cells(res, 2).Value = "A"
            End If
        Next
    End With
End Sub

su45

Find找到的是单元格，应该用 Set res=………………
如果要改变已找到的单元格的颜色，就可以用：res.Interior.Color =…………
如果要给已找到的单元格赋值，就可以： res.Value =…………

su45

1. Sub find()
   
2.     Dim res As Range
   
3.     For i = 1 To [A65536].End(xlUp).Row
   
4.         Set res = Sheet1.Range("A:A").find(WHAT:=Cells(i, 1).Value, LookAt:=xlWhole)
   
5.         If Not res Is Nothing Then
   
6.             Sheet2.Cells(res.Row, 2).Interior.Color = RGB(156, 189, 222)
   
7.             Sheet2.Cells(res.Row, 2).Value = "A"
   
8.         End If
   
9.     Next
   
10. End Sub
    

复制代码

whele

苏子龙 发表于 2016-9-24 22:29
是否这个意思：
Sub find()
    Dim res

谢谢,是这个效果
但是没明白我原来错在什么地方?

苏子龙

whele 发表于 2016-9-25 13:26
谢谢,是这个效果
但是没明白我原来错在什么地方?

3楼已说，请看代码

whele

su45 发表于 2016-9-25 11:08

我明白了

改成 Set res = Sheet2.Range("A:A").find(WHAT:=Cells(i, 1).Value, LookAt:=xlWhole) 就可以了

另外我把sheet2错写成sheet1了