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

你也可以使用替换，但这样比较棘手。

在vba中将逗号替换为空白

1 个答案: