excel - 用 vba 删除最后 4 个字符并替换同一单元格中的新单词/数字

Question

我认为这个问题可能有一个非常简单的解决方案，但是我很难找到它，而且我现在才使用/学习 VBA 几天。

我正在尝试使用 VBA 在美元数字后删除空格和字母 USD。这仅发生在我的工作表中的 3 个特定单元格中，并且发生在我的工作簿中的所有后续工作表中。现在我不担心循环浏览其他工作表。

下面是我发现的代码，如果我手动选择我希望代码工作的单元格，但我想将它绑定(bind)到一个按钮，以便该过程发生而无需我选择单元格。

Sub RemoveUSD()

Dim Cell As Range, Str As String, StrLen1 As Integer, StrLen2 As Integer
    ' For each cell in your current selection
    For Each Cell In selection
        ' Set StrLen1 as the length of the current cell value
            StrLen1 = Len(Cell.Value)
            ' Set StrLen2 as the original length minus 3
            StrLen2 = StrLen1 - 3
                ' Set Str as the original cell value minus the last 3 characters
                Str = Left(Cell.Value, StrLen2)
        ' Update the adjacent cell with the shortened value
        Cell.Value = Str
     ' Check next cell in selection
    Next Cell

End Sub

Answer 1

您可以直接在一个范围内执行此操作，并检查是否

单元格至少有四个字符，并且

最后四个字符是“美元”

对于 A1:A30

[a1:A30] = Application.Evaluate("=IF(LEN(A1:A30)>4,IF(RIGHT(A1:A30,4)="" USD"",LEFT(A1:A30,LEN(A1:A30)-4),A1:A30),A1:A30)")