excel - 如何删除给定字符串中的最后一个逗号？

Question

我尝试使用下面的代码，但无法删除逗号。请帮忙。

Sub removelastcommas()

    Dim i As Integer, str As String

    str = Range("A1")

    For i = Len(str) To 1
        If Mid(str, i, 1) <> "," Then
            Exit For
        End If
    Next
    Range("b1") = Left(str, i)

End Sub

Answer 1

使用 InStrRev 函数(不使用循环)的另一个选项是:

Sub removelastcommas()

    Dim i As Integer, str As String
    str = Range("A1")

    i = InStrRev(str, ",")
    ' comma found in A1
    If i > 0 Then
        Range("B1") = Left(str, i - 1) & Right(str, Len(str) - i)
    Else ' comma not found in A1
        Range("B1") = Range("A1")
    End If  

End Sub