excel里,如何自动获取某单元格中代码表示的数值

我需要要EXCEL里,设置自动获取某单元格中代码表示的数值(或文字)。例:A1单元格里的内容是:张三B1单元格里的内容是张三的代码:ZA2单元格里的内容是:李四B2单元格... 我需要要EXCEL里,设置自动获取某单元格中代码表示的数值(或文字)。
例:
A1单元格里的内容是:张三 B1单元格里的内容是张三的代码:Z
A2单元格里的内容是:李四 B2单元格里的内容是李四的代码:L
此时我要求在C3单元格里输入“Z”按回车,它即会显示为“张三”;同理,在C3单元格中输入“L”,它即会显示为“李四”。

以前有一朋友教过我,并且我用过一次,不过时间过得太久了,现在已经不记得具体的操作方法了,现请各位大侠指点指点。多谢
1楼的James0yuxuan,谢谢你的回答,可是回答不对哦,把公式输进去后就显示出错的提示:“#N/A” 。
谢谢1楼的补充,现在没有显示出错,但是还是很不好意思,你的回答不是我想要的结果,我需要的是在C3里输入它们的代码“Z”或“L”,即会显示“张三”或“李四”,在不输任何代码的情况下,单元格显示的是没有任何文字信息,而不是把公式输进去后直接显示结果。
展开
 我来答
gouweicao78
2015-09-29 · TA获得超过4725个赞
知道大有可为答主
回答量:2490
采纳率:40%
帮助的人:1050万
展开全部

在C3单元格输入L,自动变为B列为L对应的A列内容,因为输入和输出在同一单元格,必须通过VBA代码实现。

如图,按Alt+F11,将以下代码粘贴到右侧代码框中:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 3 Then

        With Worksheets(1).Range("B1:B500")

           Set c = .Find(Target.Value, LookIn:=xlValues)

        If Not c Is Nothing Then Target.Value = c.Offset(0, -1)

        End With

    End If

在A1:B500输入对应的姓名和代码规则,然后在C列单元格输入L,按回车后就自动变为对应的李四。输入K就变孔子。(注:上述代码仅在C列有效,如果要在其他区域,将第一句代码中Target.Column = 3改为Target.Column >2即可,表示在C列及后面的所有列)

ExcelPower
2010-06-02 · 专业Excel公式图表数据分析VBA
ExcelPower
采纳数:4495 获赞数:11863

向TA提问 私信TA
展开全部
D3输入

=VLOOKUP(C3,IF({1,0},$B$1:$B$1000,$A$1:$A$1000),2,0)

按ctrl+shift+enter

鼠标移到D3 右下角 实心十字 下拉

=========================================

=VLOOKUP(C3,IF({1,0},$B$1:$B$1000,$A$1:$A$1000),2,0)

按 CTRL+SHIFT+ENTER结束
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式