Question

excel 当SHEET2 A1等于SHEET1 A1时,SHEET2的A1显示SHEET1中B1内容

在一个电子表格中，如果SHEET1中A1等于SHEET2中A列中的一个值，则SHEET1中A1显示SHEET2中B列相对于的值。 用宏定义。 sheet1!a1=sheet2!b1,则sheet1!a1显示sheet2!b2的内容

Answer 1

代码如下，但是必须提醒一句，你的描述，修改了条件单元格的数据。

Public Sub 查找值下一单元()
    Dim CXrng As Range
    For Each CXrng In Sheets("sheet2").Range("b1:b" & Sheets("sheet2").Range("b65536").End(xlUp).Row)
        If CXrng.Value = Sheets("sheet1").Range("a1").Value Then
            Sheets("sheet1").Range("a1").Value = CXrng.Offset(1, 0).Value
            Exit For
        End If
    Next
End Sub

Answer 2

Sub 示例（）
If Sheet1.Range("a1") = Sheet2.Range("b1") Then
Sheet1.Range("a1") = Sheet2.[b2]
End If
End Sub

追问

sheet1 中的A1=sheet2 中A列的某一数值，则SHEET1中的A1显示 SHEET2中B列相对应的数值。

追答

Sub shili()
Dim rng As Range
For Each rng In Sheet2.Range("a1:a100")
If Sheet1.Range("a1") = rng.Value Then
Sheet1.Range("a1") = rng(1, 2)
Exit For
End If
Next rng
End Sub
如果你有1000个数 就把a100改成a1000