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获得超过5363个赞

知道大有可为答主

回答量：7930

采纳率：78%

帮助的人：2009万

我也去答题访问个人页

关注

展开全部

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

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

已赞过 已踩过<

评论收起

厦门鲎试剂生物科技股份有限公司
2023-08-01 广告

计算过程如下：首先，计算4个数值的和：∑Xs = 0.3 + 0.2 + 0.4 + 0.1 = 1然后，计算 lg-1(∑Xs／4)：lg-1(∑Xs／4) = lg-1(1/4) = -1其中，lg表示以10为底的对数，即 log10。... 点击进入详情页

本回答由厦门鲎试剂生物科技股份有限公司提供

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

知道答主

回答量：53

采纳率：71%

帮助的人：7万

我也去答题访问个人页

关注

展开全部

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