求EXCEL宏,自动填充单元格。

如图,在输入A5中的”李四“后,B5单元格自动填充为上面“李四“的电话。求宏代码。... 如图,在输入A5中的”李四“后,B5单元格自动填充为上面“李四“的电话。
求宏代码。
展开
 我来答
chenjiawei5000
推荐于2016-05-05 · TA获得超过2779个赞
知道大有可为答主
回答量:2585
采纳率:30%
帮助的人:2060万
展开全部
Private Sub Worksheet_Change(ByVal Target As Range)

Dim TelNum

On Error Resume Next

TelNum = WorksheetFunction.VLookup(Target, Range("A1:B" & Target.Row - 1), 2, 0)

Application.EnableEvents = False

Target.Offset(0, 1) = TelNum

Application.EnableEvents = True

End Sub
追问

再请教,因为我不懂宏,所以我这个工作表里本来就有宏,所以想把这段加进去,是不是还要加点什么。要怎么加进去。下面是我宏的开头。

追答
你把后面的截图补充完整,我才知道要怎么拼接。
博思aippt
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT... 点击进入详情页
本回答由博思aippt提供
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式