跨多行的VBA If语句

我目前有以下代码：

For Each ARange In ws.Range("L1:L28000").Rows
    If ARange(1).Value = "John" Or ARange(1).Value = "Thomson" Or ARange(1).Value = "Mattson" Or ARange(1).Value = "Powers" Or ARange(1).Value = "Hermkens" Or ARange(1).Value = "Licka" Or ARange(1).Value = "Fout" Or ARange(1).Value = "Marrin" Or ARange(1).Value = "Fleming" Or ARange(1).Value = "Waiblinger" Or ARange(1).Value = "Lambertson" Or ARange(1).Value = "Solis" Or ARange(1).Value = "Deot" Or ARange(1).Value = "Large" Or ARange(1).Value = "Gannon" Or ARange(1).Value = "FAUGHNAN" Or ARange(1).Value = "COMPLIANCE" Or ARange(1).Value = "Jacobs" Or ARange(1).Value = "Powers" Or ARange(1).Value = "TSH" Or ARange(1).Value = "WRONG LOCATION CODE" Then
        If DRange Is Nothing Then
            Set DRange = ARange
        Else
            Set DRange = Union(DRange, ARange)
        End If
    End If
Next ARange

然而，第一条if语句是一行，如果不滚动，我就看不懂，代码是否可以分解，但仍能正常工作？

像这样

If _
    ARange(1).Value = "John" Or ARange(1).Value = "Thomson" Or _
    ARange(1).Value = "Mattson" Or ARange(1).Value = "Powers" Or _
    ARange(1).Value = "Hermkens" Or ARange(1).Value = "Licka" Or _
    ARange(1).Value = "Fout" Or ARange(1).Value = "Marrin" Or _
    ARange(1).Value = "Fleming" Or ARange(1).Value = "Waiblinger" Or _
    ARange(1).Value = "Lambertson" Or ARange(1).Value = "Solis" Or _
    ARange(1).Value = "Deot" Or ARange(1).Value = "Large" Or _
    ARange(1).Value = "Gannon" Or ARange(1).Value = "FAUGHNAN" Or _
    ARange(1).Value = "COMPLIANCE" Or ARange(1).Value = "Jacobs" Or _
    ARange(1).Value = "Powers" Or ARange(1).Value = "TSH" Or _
    ARange(1).Value = "WRONG LOCATION CODE" _
Then
    If DRange Is Nothing Then
        Set DRange = ARange
    Else
        Set DRange = Union(DRange, ARange)
    End If
End If

If ARange(1).Value = "John" Or _
   ARange(1).Value = "Thomson" Or _
   ARange(1).Value = "Mattson" Or _
   ARange(1).Value = "Powers" Or _
   ARange(1).Value = "Hermkens" Or _
   ARange(1).Value = "Licka" Or _
   ARange(1).Value = "Fout" Or _
   ARange(1).Value = "Marrin" Or _
   ARange(1).Value = "Fleming" Or _
   ARange(1).Value = "Waiblinger" Or _
   ARange(1).Value = "Lambertson" Or _
   ARange(1).Value = "Solis" Or _
   ARange(1).Value = "Deot" Or _
   ARange(1).Value = "Large" Or _
   ARange(1).Value = "Gannon" Or _
   ARange(1).Value = "FAUGHNAN" Or _
   ARange(1).Value = "COMPLIANCE" Or _
   ARange(1).Value = "Jacobs" Or _
   ARange(1).Value = "Powers" Or _
   ARange(1).Value = "TSH" Or _
   ARange(1).Value = "WRONG LOCATION CODE" Then

---

是uuu下划线，因为如果我只是使用return/enter移动到新行，我会在编译器中得到一个错误。下划线指定您在新行上继续该语句。