在VBA中该如何修改这样的字符串？

TRUEZHANG

例如在A1单元格中有这样格式的字符串：xxx;xxx;xx;ABCD,我想把最右边的分号开始（包括分号）把左边的所有字符都删除，变成ABCD这样。该用到哪些命令

swl4561255

方法一：

1. Sub tset1()
   
2. n = InStrRev([A1], ";")
   
3. MsgBox Mid([A1], n + 1)
   
4. End Sub
   

复制代码

方法二：

1. Sub test2()
   
2. r = Split([A1], ";")
   
3. n = UBound(r)
   
4. MsgBox r(n)
   
5. End Sub

复制代码

excel玉米

[B1]=right([A1],Instr([A1],";")-1)    '放在B1单元格中，如需放在A1,将前面的B1更改即可

lxdexcel

Range("b1") = Mid(Range("a1").Value, InStrRev(Range("a1").Value, ";") + 1)

ykcbf1100

st=split([a1],";")
[b1]=Replace(st(UBound(st)),",","")

taller

TRUEZHANG

谢谢各位指教

tarim19738

Sub test()
  Dim arr, brr
  arr = Range("a1").CurrentRegion
  brr = Split(arr, ";")(3)
  Cells(1, 2) = brr
End Sub