求助：如何使用函数批量替换字符串？

Holiday2022

要么升级到Excel2021或365，要么下一个最新版本的WPS。TEXTSPLIT、textjoin函数，低版本无法使用

高个子

louweiming5 发表于 2024-3-5 10:01
还想问一下大神，我的人名特别多，达到了500多个，也可以用迭代计算吗?

emmm，500个也是可以的，看这公式，如果超过32767个人名就不行了

624134745

louweiming5 发表于 2024-3-5 09:16
试了试，不能用啊。

要注意开启迭代计算，次数设置为100.不是直接下载文件

qydn

试试这个 试试这个

swl4561255

1. Private Sub CommandButton1_Click()
   
2. Dim crr()
   
3. ar = [A1].End(4).Row
   
4. arr = Range("A2:A" & ar)
   
5. br = [F1].End(4).Row
   
6. brr = Range("F2:G" & br)
   
7. For i = 1 To ar - 1
   
8.       mystr = arr(i, 1)
   
9.    For j = 1 To br - 1
   
10.       If InStr(mystr, brr(j, 1)) Then
    
11.          mystr = Replace(mystr, brr(j, 1), brr(j, 2))
    
12.       End If
    
13.    Next
    
14.    m = m + 1
    
15.    ReDim Preserve crr(1 To m)
    
16.    crr(m) = mystr
    
17. Next
    
18. [B2].Resize(m, 1) = Application.Transpose(crr)
    
19. End Sub

复制代码

swl4561255

1. Private Sub CommandButton1_Click()
   
2. Dim crr()
   
3. ar = [A1].End(4).Row
   
4. arr = Range("A2:A" & ar)
   
5. br = [F1].End(4).Row
   
6. brr = Range("F2:G" & br)
   
7. For i = 1 To ar - 1
   
8.       mystr = arr(i, 1)
   
9.    For j = 1 To br - 1
   
10.       If InStr(mystr, brr(j, 1)) Then
    
11.          mystr = Replace(mystr, brr(j, 1), brr(j, 2))
    
12.       End If
    
13.    Next
    
14.    m = m + 1
    
15.    ReDim Preserve crr(1 To m)
    
16.    crr(m) = mystr
    
17. Next
    
18. [B2].Resize(m, 1) = Application.Transpose(crr)
    
19. End Sub
    

复制代码