请问如何实现下面的内容

516593566 · 发表于 2017-4-14 17:48

就是批量按要求的替换里面的数值

替换数据.zip (9.09 KB, 下载次数: 9)

yuqiang123 · 发表于 2017-4-14 18:09

提示: 作者被禁止或删除内容自动屏蔽

lsc900707 · 发表于 2017-4-15 09:15

Sub lsc()
Set d = CreateObject("Scripting.Dictionary")
arr = Sheet2.[a1].CurrentRegion
For i = 1 To UBound(arr)
d(arr(i, 1)) = arr(i, 2)
Next
brr = ActiveSheet.[a1].CurrentRegion
For i = 5 To UBound(brr)
brr(i, 2) = d(brr(i, 1))
Next
[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

516593566 · 发表于 2017-4-15 09:24

lsc900707 发表于 2017-4-15 09:15
Sub lsc()
Set d = CreateObject("Scripting.Dictionary")
arr = Sheet2.[a1].CurrentRegion

运行完后其他单元格的公式全美了，怎么保留原有的公式呢

lsc900707 · 发表于 2017-4-15 09:26

516593566 发表于 2017-4-15 09:24
运行完后其他单元格的公式全美了，怎么保留原有的公式呢

附件里其它单元格没有公式呀。

516593566 · 发表于 2017-4-15 09:26

lsc900707 发表于 2017-4-15 09:15
Sub lsc()
Set d = CreateObject("Scripting.Dictionary")
arr = Sheet2.[a1].CurrentRegion

运行完后，我C列里面含有的公式，全部变成了数值了，能保留其他列的所有公式吗

lsc900707 · 发表于 2017-4-15 09:29

本帖最后由 lsc900707 于 2017-4-15 09:30 编辑

516593566 发表于 2017-4-15 09:26
运行完后，我C列里面含有的公式，全部变成了数值了，能保留其他列的所有公式吗

上传真实一点的附件，我不愿猜谜。再说，你既然要用代码，那就彻底的抛弃公式。

516593566 · 发表于 2017-4-15 09:51

lsc900707 发表于 2017-4-15 09:29
上传真实一点的附件，我不愿猜谜。再说，你既然要用代码，那就彻底的抛弃公式。

替换数据.zip (9.9 KB, 下载次数: 3)
附件已上传，麻烦您了，谢谢！

smileyxdz · 发表于 2017-4-15 10:55

用函数实现

lsc900707 · 发表于 2017-4-16 00:31

516593566 发表于 2017-4-15 09:51
附件已上传，麻烦您了，谢谢！

代码稍作修改即可，请再测试效果：
Sub lsc()
Set d = CreateObject("Scripting.Dictionary")
arr = Sheet2.[a1].CurrentRegion
For i = 1 To UBound(arr)
d(arr(i, 1)) = arr(i, 2)
Next
brr = ActiveSheet.Range("a5:b" & Cells(Rows.Count, 1).End(3).Row)
For i = 1 To UBound(brr)
brr(i, 2) = d(brr(i, 1))
Next
[a5].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

		自动登录	找回密码
密码			免费注册

yuqiang123 yuqiang123 当前离线性别保密 UID 3446324 阅读权限 0 注册时间 2016-6-9 在线时间小时最后登录 1970-1-1 积分 1056 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-4-14 18:09 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 请问如何实现下面的内容