VBA查找与替换的难题，把多个值替换为另外一个值。

☆☆☆☆

把表2中A列的合并村之前的老村名全部替换为合并后的新村名。只改村的名字。

     即把表2中的甲姑村、拉联村都替换巴台村。把草寨村 新寨村 甲堡村 和平村 小河村 凉亭村 替换为百泉湖村。

总是找不到合适的思路，汗！用VBA解决，先谢谢大虾们。

liulang0808

1. Sub 按钮3_Click()
   
2.     Application.ScreenUpdating = False
   
3.     arr = Sheets(1).UsedRange
   
4.     With Sheets(2)
   
5.         For j = 2 To UBound(arr)
   
6.             For i = 2 To UBound(arr, 2)
   
7.                 If Len(arr(j, i)) > 0 Then
   
8.                     .Columns(1).Replace arr(j, i), arr(j, 1)
   
9.                 Else
   
10.                     Exit For
    
11.                 End If
    
12.             Next i
    
13.         Next j
    
14.     End With
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    

复制代码

liulang0808

供参考。。。。。。

☆☆☆☆

liulang0808 发表于 2019-9-8 15:35
供参考。。。。。。

谢谢  在查看中。应该是我要的   再次感谢。

deadzlq

PQ参考解法

ggmmlol

把二维表转换成一维表，就很好查询了。
但是，经过实际转换，发现合并前的有些村的名字，对应了两个合并后的村名。再对原数据区域用条件格式验证，确认有一些村在“合并”过程中被拆分重组了。
那么，对于那些被拆分重组的原村名，如何确定它的新村名呢？

dgenson

1. Sub te()
   
2. Dim rng As Range, rng1 As Range, rng3 As Range
   
3. 
   
4. Set rng = Sheet1.[b2:j61]
   
5. Set rng1 = Sheet2.[a1:a1856]
   
6. For Each i In rng
   
7.     If i.Value <> "" Then
   
8.         Set rng3 = rng1.Find(i.Value)
   
9.         If Not rng3 Is Nothing Then
   
10.             Address = rng3.Address
    
11.         
    
12.          Do
    
13.            rng3(1, 2).Value = rng3.Replace(i.Value, Sheet1.Cells(i.Row, 1).Value)
    
14.       
    
15.            Set rng3 = rng1.FindNext(rng3)
    
16.            
    
17. 
    
18.          Loop While Not rng3 Is Nothing
    
19.          End If
    
20.     End If
    
21. Next
    
22. End Sub
    

复制代码

dgenson

Sub te()
Dim rng As Range, rng1 As Range, rng3 As Range

Set rng = Sheet1.[b2:j61]
Set rng1 = Sheet2.[a1:a1856]
For Each i In rng
    If i.Value <> "" Then
         rng1.Replace i.Value, Sheet1.Cells(i.Row, 1).Value
    End If
Next
End Sub

zhangcheng6688

liulang0808 发表于 2019-9-8 15:34

赞赞赞！！！