使用VBA操作字符串

Question

您好，我有一个电子表格，其中有一列包含数万个股票标识符，格式如下：2.269-345.0。

我需要将“K”作为第一个字符，删除所有“.”和“-”从股票 ID 中删除，并删除最后一个字符“0”。有人可以为我提供实现这一目标的最简单方法吗？当我运行宏时，我不断收到调试错误。我对 VBA 语法不太熟悉，觉得这很令人沮丧。

谢谢。

Answer 1

试试这个

 Function stripString(ByVal str2strip As String) As String
      Dim tmpStr As String: tmpStr = ""
      If str2strip = "" Then GoTo stripString_Exit
      tmpStr = "K" & str2strip
      tmpStr = Replace(tmpStr, ".", "")
      tmpStr = Replace(tmpStr, "-", "")
      tmpStr = IIf(Right(tmpStr, 1) = 0, Left(tmpStr, Len(tmpStr) - 1), tmpStr)
      stripString = tmpStr
stripString_Exit:
      Exit Function
stripString_Err:
End Function