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

Question

I am trying to extract some values from a cell.

I have figured out how to extract the value of a cell to the left of "-" but I come across an error when the cell does not have a "-" at all. How do I ignore these cells / error?.

Any help would be much appreciated or ways to improve what I have made.

Also if it helps there are roughly 20000 rows on average.

    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

You set ws to a sheet, then immediately change it, you should remove the first set if you aren't using it.

You can still use left() and location if you would like, this is just another way of doing it. The important part is the if statement using instr()