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)

有没有办法拆分和添加"_@，如例如？

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)

拆分并添加Text EXCEL VBA

1 个答案: