求大神帮忙写一个批量替换的宏

galaxysailor

因日常中经常需要替换，总用vlookup比较麻烦所以恳请帮忙写一个批量替换的宏，就是提前准备好替换对照明细，当需要替换时选中要替换的单元格运行宏就会替换选中单元格内容，如果对照明细中没有则不替换，求大神帮忙写一个批量替换的宏，谢谢

lsc900707

用字典数组处理。

liulang0808

1. Sub 按钮1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Application.ScreenUpdating = False
   
4.     arr = Sheets("对照明细").UsedRange
   
5.     For j = 2 To UBound(arr)
   
6.         d(arr(j, 1)) = arr(j, 2)
   
7.     Next j
   
8.     Sheets("日常文件").[d1] = "机构名称"
   
9.     arr = Sheets("日常文件").UsedRange
   
10.     For j = 2 To UBound(arr)
    
11.         If d.exists(arr(j, 1)) Then
    
12.             arr(j, 4) = d(arr(j, 1))
    
13.         End If
    
14.     Next j
    
15.     Sheets("日常文件").UsedRange = arr
    
16.     Application.ScreenUpdating = True
    
17. End Sub
    

复制代码

liulang0808

详见附件内容。。。。。。

galaxysailor

lsc900707 发表于 2018-9-23 16:51
用字典数组处理。

新人，求详细指教

galaxysailor

liulang0808 发表于 2018-9-23 17:04
详见附件内容。。。。。。

不知道为什么运行没反应

liulang0808

galaxysailor 发表于 2018-9-23 17:27
不知道为什么运行没反应

目前是两张表在一个工作薄内， 日常文件的结果是运行完的
如果楼主需要运行其他文件，需要保证第一列就是用于匹配的关键列的

galaxysailor

liulang0808 发表于 2018-9-23 17:04
详见附件内容。。。。。。

可不可以实现原位置替换

galaxysailor

liulang0808 发表于 2018-9-23 17:31
目前是两张表在一个工作薄内， 日常文件的结果是运行完的
如果楼主需要运行其他文件，需要保证第一列就 ...

可不可以实现选中单元格替换，谢谢

liulang0808

galaxysailor 发表于 2018-9-23 17:36
可不可以实现选中单元格替换，谢谢

楼主要怎么选择单元格然后替换？建议结合附件说明下