用VBA批量替换 区域中不规则放置的单元格内容？

chandler本人

如图，怎么用VBA替换？请各位不吝赐教，非常感激！

lsc900707

一个字典匹配就完事的。

1. Sub gj23w98()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Sheet1.[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         d(arr(i, 1)) = arr(i, 2)
   
6.     Next
   
7.     brr = [a1].CurrentRegion
   
8.     For i = 2 To UBound(brr)
   
9.         For j = 2 To UBound(brr, 2)
   
10.             brr(i, j) = d(brr(i, j))
    
11.         Next
    
12.     Next
    
13.     [a1].CurrentRegion = brr
    
14. End Sub

复制代码

yylucke

vlookup就可以了J2=IF(ISERROR(VLOOKUP(B2,明需求的标题!$A:$B,2,0)),"",VLOOKUP(B2,明需求的标题!$A:$B,2,0))，拖拉公式。

lsc900707

附件供参考：

chandler本人

lsc900707 发表于 2018-6-11 15:35
一个字典匹配就完事的。

谢谢~ 源数据表中 如有其他单元格（比方： 书本，笔），再运行代码后会删除，这些文本需要保留的，可以帮忙改下吗？感谢感激！

lsc900707

chandler本人 发表于 2018-6-11 15:56
谢谢~ 源数据表中 如有其他单元格（比方： 书本，笔），再运行代码后会删除，这些文本需要保留的，可以帮 ...

所以附件要做得准确点：

1. Sub gj23w98()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Sheet1.[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         d(arr(i, 1)) = arr(i, 2)
   
6.     Next
   
7.     brr = [a1].CurrentRegion
   
8.     For i = 2 To UBound(brr)
   
9.         For j = 2 To UBound(brr, 2)
   
10.             If d.exists(brr(i, j)) Then brr(i, j) = d(brr(i, j))
    
11.         Next
    
12.     Next
    
13.     [a1].CurrentRegion = brr
    
14. End Sub

复制代码

chandler本人

lsc900707 发表于 2018-6-11 16:02
所以附件要做得准确点：

谢谢老师，能麻烦老师再帮个忙吗，http://club.excelhome.net/forum. ... p;extra=#pid9547079