13问答网 > excel 当SHEET2 A1等于SHEET1 A1时,SHEET2的A1显示SHEET1中B1内容

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

2024-11-22 13:25:11

推荐回答（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