vba - Excel vba - 拆分函数在循环内给出 'Subscript out of range'错误

Question

我有两列数据。
每个单元格的格式为:“***”或“XXX at mm.dd.yyyy”，其中XXX代表各种数字组合，我需要将“XXX at mm.dd.yyyy”替换为“XXX”，所以我'已经这样做了:

For Each c In Range(.Cells(2, 9), .Cells(finalrow, 10))
        If c <> "***" Then
            c.Value = Split(c, " at")(0) * 1
        End If
Next c

但我在第 2345 行收到“下标超出范围”错误。

我在这里想念什么？

Answer 1

关于由于空的 2345 行您可能会收到错误:

For Each c In Range(.Cells(2, 9), .Cells(finalrow, 10))
        If c <> "***" Then
            If InStr(1, c, " at ") Then
                c.Value = Split(c, " at")(0)
            End If
        End If
Next c

检查 c中是否有“at” ，因此拆分不会导致错误。