好吧问答库 > excel 当SHEET2 A1等于SHEET1 A1时,SHEET2的A1显示SHEET1中B1内容

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

2024年11月22日 13:25

有2个网友回答

网友（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

网友（2）：

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