Ersetzen Komma durch Leerzeichen in VBA

Question

Ich muss Komma in der letzten Spalte jeder Zeile mit Leerzeichen ersetzen.Ich habe unten in Excel.

1  _1 "", 
2  _2 "", 
3  _3 "", 
4  _4 "", 
5  _5 "", 

Mein Code. aber es funktioniert nicht.

Private Sub CommandButton1_Click() 
    Dim lRow As Long 
    Dim length As Long 

    'Find the last non-blank cell in column A(1) 
    lRow = Cells(Rows.Count, 1).End(xlUp).Row 
    length = Len(Range("C" & lRow)) - 1 
    Range("C" & lRow).Value = Replace(Range("C" & lRow), ",", "", length) 
    Range("B2:B" & lRow).ClearContents 
End Sub 

Answer 1

Dies sollte es tun: Es wird das letzte Zeichen in der letzten Reihe zu entfernen, wenn es sich um ein Komma ist (dies setzt voraus, dass Sie in der Spalte C ersetzen möchten, wie Ihr Code angibt):

Private Sub CommandButton1_Click() 
    Dim lRow As Long 

    lRow = ActiveSheet.UsedRange.Rows.Count 
    If Right(Range("C" & lRow).Value, 1) = "," Then 
    Range("C" & lRow).Value = Left(Range("C" & lRow), Len(Range("C" & lRow)) - 1) 
    End If 

    Range("B2:B" & lRow).ClearContents 
End Sub 

Sie könnten auch ersetzen, aber es ist so schwieriger.