Excel VBA - 通过删除字符串附加单元格

Question

我正在寻找附加包含数字和文本的单元格，以便删除文本。

以1.1 (Very Low)为例说明单元格中的内容。

我想从单元格中删除(Very Low) 。

Answer 1

使用left并find ：

=LEFT(A1,FIND("(",A1,1)-1)

VBA：

Dim p As String
Dim loc
p = "("

With ActiveSheet
    lastrow = .Range("A" & .Rows.Count).End(xlUp).Row

For i = 1 To lastrow
    loc = InStr(1, .Cells(i, "A").Value, p)
    .Cells(i, "A") = Left(.Cells(i, "A"), loc - 1)
Next

End With

Answer 2

我已经想出了如何使用InStr来做到这一点。

我试图通过在检查字符串时循环遍历它们来编辑范围内的单元格。 然后我会删除指定的字符串。 为此，您可以使用InStr检查单元格中的字符串，然后使用Replace更新单元格内容。

我找到了一种方法来做到这一点：

Dim ws as Worksheet, rCell As Range, rArea As Range

    Set rArea = ws.Range("A1:A10")
    For Each rCell In rArea.Cells
        If InStr(rCell.Value, " (Very Low)") Then
            rCell.Value = Replace(rCell.Value, " (Very Low)", "")
        End If
    Next rCell