拆分并添加文本EXCEL VBA

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

例如。

 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)