拆分并添加文本Excel VBA

Question

我想拆分一些文本，然后将 "_@"添加到拆分文本

例如

S106-137-800_BOMS_0.xls >          S106-137-800_BOMS_@           0

这是我到目前为止的代码：

    k = InStr(str, "_")
    j = InStr(k + 1, str, "_")
    i = InStr(j + 1, str, ".")
    rw.Offset(0, 1) = Left(str, j - 1)
    rw.Offset(0, 2) = Mid(str, j + 1, i - j - 1)

有办法拆分和添加"_@，如e.g？

Answer 1

您可以使用InStrRev函数从末端获得第一个_的位置：

i = InStrRev(Str, "_")
rw.Offset(, 1).Value = Left(Str, i) & "@"
rw.Offset(, 2).Value = Mid(Str, i + 1, InStr(Str, ".") - i - 1)