[已解决]超级多的替换一次完成的代码

cpcp123

超级多的替换一次完成的代码

最佳答案

月排行榜 / 总排行榜

芐雨

2014-3-20 22:32

1. Sub 按条件替换_芐雨()
   
2.     Application.ScreenUpdating = False
   
3.     Sheet1.Columns("B:IV").Clear
   
4.     brr = Sheet1.Range("A1").CurrentRegion
   
5.     For i = 1 To UBound(brr)
   
6.         Set arr = Sheet2.Range("A1").CurrentRegion
   
7.         Set c = arr.Find(brr(i, 1), LookIn:=xlValues)
   
8.         If Not c Is Nothing Then
   
9.             firstAddress = c.Address
   
10.             Do
    
11.                 Sheet1.Cells(i, c.Row) = arr(c.Column)
    
12.                 Set c = arr.FindNext(c)
    
13.             Loop While Not c Is Nothing And c.Address <> firstAddress
    
14.         End If
    
15.     Next
    
16.     Application.ScreenUpdating = True
    
17. End Sub

复制代码

跳转到最佳答案楼层

芐雨

1. Sub 按条件替换_芐雨()
   
2.     Application.ScreenUpdating = False
   
3.     Sheet1.Columns("B:IV").Clear
   
4.     brr = Sheet1.Range("A1").CurrentRegion
   
5.     For i = 1 To UBound(brr)
   
6.         Set arr = Sheet2.Range("A1").CurrentRegion
   
7.         Set c = arr.Find(brr(i, 1), LookIn:=xlValues)
   
8.         If Not c Is Nothing Then
   
9.             firstAddress = c.Address
   
10.             Do
    
11.                 Sheet1.Cells(i, c.Row) = arr(c.Column)
    
12.                 Set c = arr.FindNext(c)
    
13.             Loop While Not c Is Nothing And c.Address <> firstAddress
    
14.         End If
    
15.     Next
    
16.     Application.ScreenUpdating = True
    
17. End Sub

复制代码

风林火山

1. Sub test()
   
2.     Dim arr, k%, i%, n%, iLrow%, brr
   
3.     arr = Range("a1").CurrentRegion
   
4.     brr = Array("12", "A", "B", "C", "D")
   
5.     For n = 2 To UBound(brr) + 1
   
6.         i = n
   
7.         For k = 2 To UBound(arr)
   
8.             arr(k, i) = brr(n - 1) & "=" & arr(k, i)
   
9.         Next k
   
10.     Next n
    
11.     Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
12. End Sub
    

复制代码