查找最后一行直到第1列仅包含数字的地方

Question

我正在使用从“查找工作表的最后一行”：Error in finding last used cell in Excel with VBA的解决方案中找到的这段代码。如何调整它来回答我的问题？抱歉，无法解决在此处发布代码的错误。谢谢。

Answer 1

想象一下A:A列中的以下数据：

现在可以循环使用列：

Sub Test()

With Sheet.Range("A:A") 'Change to your own sheets CodeName
    For Each cl In .SpecialCells(xlCellTypeConstants, 1)
        Debug.Print cl.Address
    Next cl
End With

End Sub

---

因为您说有数字值，所以我们可以将A:A列迭代为SpecialCells。使用SpecialCells仅包含其中包含常量的单元格，然后添加xlCellTypeConstants枚举（对于数字常量，仅添加xlCellTypeConstants或XlSpecialCellsValue），然后可以循环。

它只会迭代包含数值的单元格。因此，您无需尝试查找最后一行，也不需要循环所有单元格并检查值是否为数字。此方法还将允许您使用的范围之间的其他文本数据类型值。

XlSpecialCellsValue

Answer 2

我做了：

xlNumbers

但是第2行出现类型不匹配错误。此外，不确定这是否是找到A列中带有数字的最后一行的正确方法。