老师，用宏命令怎么写这句查找代码？

stockding111

想在表一做个按钮，需要表达这样的意思：
在“表二第一行”查找“表一的A1”单元格数据；
如果相同，则在“表二相应的列”继续查找“表一A3”单元格的数据；
如果相同，则在表二这个单元格填充红色。

谢谢老师，期盼中。。。

妞叫七七

有相同数据填充红色是吧，上传一个表格吧，列一些数据

su45

Sub aa()
With Sheets("sheet2")
    Set A1 = .Rows(1).Find(Range("A1"))
    If A1 <> "" Then
        Set R = .Columns(A1.Column).Find(Range("A3"))
        If R <> "" Then
            R.Interior.ColorIndex = 3
        End If
    End If
End With
End Sub

stockding111

su45 发表于 2013-5-31 14:17
Sub aa()
With Sheets("sheet2")
    Set A1 = .Rows(1).Find(Range("A1"))

谢谢老师，成功了！

su45

成功了！就给个最佳哟！

stockding111

su45 发表于 2013-5-31 14:17
Sub aa()
With Sheets("sheet2")
    Set A1 = .Rows(1).Find(Range("A1"))

老师，可否加一句，如果查找不符合条件，则，显示“没有相应数据”的提示。否则的话，万一前面搜索数据输错，代码就会跳出来提示调试。

su45

放心，搜索数据输错了，不会有反应的！

stockding111

su45 发表于 2013-5-31 15:04
放心，搜索数据输错了，不会有反应的！

可是现在已经出现，如果搜索中没有符合的数据，会跳出调试命令的情况

su45

Sub aa()
With Sheets("sheet2")
    Set A1 = .Rows(1).Find(Range("A1"))
    If A1 <> "" Then
        Set R = .Columns(A1.Column).Find(Range("A3"))
        If R <> "" Then
            R.Interior.ColorIndex = 3
       Else
            Msgbox "没找到"& Range("A3")
        End If
    Else
        Msgbox "没找到"& Range("A1")
    End If
End With
End Sub

su45

Sub aa()
With Sheets("sheet2")
    Set A1 = .Rows(1).Find(Range("A1"))
    If Not A1 Is Nothing Then
        Set R = .Columns(A1.Column).Find(Range("A3"))
        If Not R Is Nothing Then
            R.Interior.ColorIndex = 3
        End If
    End If
End With
End Sub