怎样可以通过给一个excel单元格赋值(例如:aa),另外一个单元格可以直接引用第三个单元格的值

例如在sheet1中的A1、A2、A3单元格输入aa、bb、cc,在B1、B2、B3单元格中分别输入10、20、30,然后在sheet2中的A列任意一个单元格输入aa(例... 例如在sheet1中的A1、A2、A3单元格输入aa、bb、cc,在B1、B2、B3单元格中分别输入10 、20 、30,然后在sheet2中的A列任意一个单元格输入aa(例如在A10单元格输入aa,则在B10单元格自动显示10.;若在A10单元格输入bb,则在B10单元格自动显示20)。敬请高手指点 展开
 我来答
阿楚sz
2010-07-13 · 超过12用户采纳过TA的回答
知道答主
回答量:43
采纳率:0%
帮助的人:0
展开全部

给你写个简单的自动完成的宏,Excel文件名叫"自动完成.xls", 用宏的好处就是在SHEET2里,不管在什么位置只要你输入SHEET1里要自动完成的代码,就能自动完成填写,不要在SHEET2填写任何公式。

只要你将需要自动完成的内容放在A1附近,不管是横向还是竖向,位置随意,但注意只要保持各个值不要完全被空格隔开就行,如下图

在Sheet2按Alt+F11,按Ctrl+R打开资源管理器,双击Sheet2. 贴上如下代码:

Private Sub Worksheet_Change(ByVal Target As Range)

    

    Cells(Target.Row, Target.Column + 1).Value = ThisWorkbook.Findvalue(Target.Value)

    Worksheets("Sheet2").Activate

End Sub

在资源管理器双击ThisWorkbook,贴上如下代码:

Public Function Findvalue(Inputvalue As String) As String

    Workbooks("自动完成.xls").Activate

    Worksheets("Sheet1").Activate

    Range("A1").Activate

    For Each C In ActiveCell.CurrentRegion.Cells

        If C.Value = Inputvalue Then

        Findvalue = Cells(C.Row, C.Column + 1).Value

        Exit For

        End If

    Next

End Function

上面的 Workbooks("自动完成.xls").Activate中的文件名要用你EXCEL的文件名

xiaopanglv
2010-07-15 · 超过10用户采纳过TA的回答
知道答主
回答量:20
采纳率:0%
帮助的人:0
展开全部
插入,函数,选VLOOKUP,
具体为 SHEET2 B1单元格写公式
=VLOOKUP(A1,Sheet1!A:B,2,FALSE),就可以了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
liuyinde
2010-07-13 · TA获得超过6981个赞
知道大有可为答主
回答量:8941
采纳率:45%
帮助的人:1995万
展开全部
你在SHEET2的B1输入=IF(ISERROR(VLOOKUP(A1,SHEET1!A:B,2,0)),"",VLOOKUP(A1,SHEET1!A:B,2,0))并向下填充就是.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
Deksan
2010-07-13 · TA获得超过3139个赞
知道大有可为答主
回答量:1447
采纳率:100%
帮助的人:1008万
展开全部
在Sheet2
的B10内写公式

=vlookup(A10,sheet1!$A$1:$B$3,2,false)
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式