用vba中的空白替換逗號

Question

我必須用空白替換任何一行的最後一列中的逗號。我在Excel中有下面的內容。

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

我的代碼。但它不起作用。

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

這應該做的伎倆：如果它是一個逗號它會刪除最後一行中的最後一個字符（這裏假設你想在C列替換爲您的代碼表示）：

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 

你也可以使用替換，但它更棘手。