excel - 从 "-"左侧提取文本，但忽略不包含 "-"的单元格

Question

我正在尝试从单元格中提取一些值。

我已经想出了如何提取“-”左侧单元格的值，但是当单元格根本没有“-”时我遇到了一个错误。
如何忽略这些单元格/错误？

任何帮助将不胜感激或改进我所做的事情的方法。

此外，如果它有帮助，平均大约有 20000 行。

    Dim r As Long
    Dim Location As Long
    Dim m As Long
    Dim ws As Worksheet

    Set ws = Worksheets("NHBRSummary")

        Set ws = Worksheets("Sheet1")
        m = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
        For r = 2 To m
            Location = InStr(1, Cells(r, 1), "-")
            Cells(r, 2).Value = Left(Cells(r, 1), Location - 1)
        Next

End Sub

Answer 1

        Set ws = Worksheets("Sheet1")
        with ws
             m = .Cells(.Rows.Count, "F").End(xlUp).Row
             For r = 2 To m
                 if InStr(1, .Cells(r, 1), "-") > 0 then
                     .Cells(r, 2).Value = split(.Cells(r, 1).value)(0)
                 end if
             Next
        end with

您将 ws 设置为一张纸，然后立即更改它，如果您不使用它，则应删除第一组。

如果您愿意，您仍然可以使用 left() 和 location，这只是另一种方式。重要的部分是使用 instr() 的 if 语句