请教单元格字符串定位替换字符

Amway@2022

如下图，请教老师，如果通过vba将左边三行字符串，转变成右边的三行字符串
谢谢老师指点

醉眼看尘世

1. Sub test()
   
2. Dim i&, Arr, Trr, tmPstr$
   
3. With Sheet1
   
4.     i = .Cells(.Rows.Count, "A").End(3).Row
   
5.     Arr = .[a1].Resize(i, 2)
   
6.     For i = 1 To UBound(Arr, 1)
   
7.         tmPstr = "" & Arr(i, 1) & ""
   
8.         tmPstr = Replace(tmPstr, "\40", "\39")
   
9.         tmPstr = Replace(tmPstr, "\440", "\1")
   
10.         tmPstr = Replace(tmPstr, "\404", "\9999")
    
11.         Arr(i, 1) = Mid(tmPstr, 2, Len(tmPstr) - 2)
    
12.     Next i
    
13.     .[d1].Resize(UBound(Arr, 1), 1) = Arr
    
14. End With
    
15. End Sub
    

复制代码

ggmmlol

s="440\1440\4440\404\4040\40"
ss = split(s,"\")
for i = 0  ubound(ss)
if ss(i) ="404" then ss(i) = "9999"
if ss(i) ="440" then ss(i) = "1"
if ss(i) ="40" then ss(i) = "39"
next i
s =join(ss,"\")

ykcbf1100

字符完全替换

ykcbf1100

字符替换。。。

1. Sub ykcbf()  '//2024.8.13    字符替换
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     Columns(3) = ""
   
4.     th = Split([b1].Value, Chr(10))
   
5.     For j = 0 To UBound(th)
   
6.         For i = 1 To r
   
7.             If Cells(i, 3) = Empty Then Cells(i, 3) = Cells(i, 1)
   
8.             st = Cells(i, 3)
   
9.             st1 = Split(th(j), "→")(0)
   
10.             st2 = Split(th(j), "→")(1)
    
11.             parts = Split(st, "")
    
12.             For x = 0 To UBound(parts)
    
13.                 If parts(x) = st1 Then parts(x) = st2
    
14.             Next
    
15.             Cells(i, 3) = Join(parts, "")
    
16.         Next
    
17.     Next
    
18. End Sub
    
19. 
    

复制代码