Question

我对一个小的宏代码有疑问。这个宏使我的seleceted单元格注释或代码依赖！字符。我把它分配给了一个按钮。但是第二部分运行（ElseIf Left（Cells，1）=“！”......）慢于第一部分（如果Left（Cells，1）＆lt;＆gt; ...）。我做错了什么？

提前致谢。

Sub COMMENT()

Dim Cells As Range

 For Each Cells In Range(Selection.Cells.Address)

  If Left(Cells, 1) <> "!" Then
  Cells = "!" & Cells

  ElseIf Left(Cells, 1) = "!" Then
  Cells.Replace "! ", "", xlPart

  End If

 Next

End Sub

Answer 1

正如@Rory所说，代码中的以下行似乎有错误的空格。

Cells.Replace“！”，“”，xlPart

尝试以下方法：

Sub COMMENT()
    Dim Cell As Range
    For Each Cell In Selection
        Cell = IIf(Left(Cell, 1) = "!", Right(Cell, Len(Cell) - 1), "!" & Cell)
    Next
End Sub

Slow Cells.Replace功能

1 个答案: