小编Cre*_*iko的帖子

我知道如何找到包含数据的最后一列：

 finalcolumn = .Cells(1, .Columns.Count).End(xlToLeft).Column

但我想找到第一个空列，也就是说，在我的情况下，在最后一列数据之前的某个地方。

 firstemptycolumn = ?

我有两列数据。每个单元格的格式为：“***”或“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 行收到“下标超出范围”错误。

我在这里缺少什么？