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

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

 我来答

2个回答

#合辑# 机票是越早买越便宜吗？

cfzzj007
2018-01-30 · TA获得超过5359个赞

知道大有可为答主

回答量：7930

采纳率：78%

帮助的人：1965万

我也去答题访问个人页

关注

展开全部

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

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

已赞过 已踩过<

评论收起

Sievers分析仪
2024-10-07 广告

是的。传统上，对于符合要求的内毒素检测，最终用户必须从标准内毒素库存瓶中构建至少一式两份三点标准曲线；必须有重复的阴性控制；每个样品和PPC必须一式两份。有了Sievers Eclipse内毒素检测仪，这些步骤可以通过使用预嵌入的内毒素标准... 点击进入详情页

本回答由Sievers分析仪提供

Sippy丶月离
2018-01-30 · 超过20用户采纳过TA的回答

知道答主

回答量：53

采纳率：71%

帮助的人：6.9万

我也去答题访问个人页

关注

展开全部

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