将区域单元替换为对应数值

dong130

将区域单元替换为对应数值，sheet1区域内的单元格，根据sheet2的对应数值，在sheet1区域直接覆盖替换，用vba怎么表达，该区域列举少数数据

杨建营

请楼主参考。

杨建营

杨建营

1. Sub repalcea()
   
2. Dim i&, j&, k&
   
3. Dim arr, brr, d
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. brr = Sheet2.[a1].CurrentRegion.Resize(, 3)
   
6. Application.ScreenUpdating = False
   
7. For k = 2 To UBound(brr)
   
8.     d(brr(k, 1)) = brr(k, 3)
   
9. Next
   
10. With Sheet1
    
11.     arr = .[d1].CurrentRegion
    
12.    
    
13.     For i = 2 To UBound(arr)
    
14.         For j = 1 To UBound(arr, 2)
    
15.             If d.exists(arr(i, j)) Then
    
16.                 arr(i, j) = d(arr(i, j))
    
17.             End If
    
18.         Next
    
19.     Next
    
20.     .[d1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
21. End With
    
22. Application.ScreenUpdating = True
    
23. End Sub

复制代码

taller

swl4561255

1. Sub test()
   
2. Dim a As Range
   
3. arr = Sheets("sheet2").Range("A2:C13")
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. For i = 1 To UBound(arr)
   
6.     d(arr(i, 1)) = arr(i, 3)
   
7. Next
   
8. For Each a In Range("D2:H10")
   
9.     If a <> "" Then
   
10.         a = d(a.Value)
    
11.     End If
    
12. Next
    
13. End Sub
    

复制代码

dong130

杨建营 发表于 2024-5-5 23:12

感谢大佬，问下，为什么我在ABC列中随便填几个内容，执行时，也出出现ABC列的内容，然后在将D列后的数据往后面运动3列

dong130

swl4561255 发表于 2024-5-6 07:50

非常感谢

dong130

taller 发表于 2024-5-6 00:49

膜拜大神，点赞