宏以查找结束数据并将所有选定的数据转换为数字格式

Question

我的数据始终在单元格E2中开始，并且跨越未确定的行数，并且未确定的列数量下降。我想要一个宏来查找包含数据的最后一行，最后一列包含数据，并从E2突出显示数据的末尾，并将其全部转换为数字格式。

我找到了如何在行和列中找到包含数据的最后一个单元格。但我不知道如何选择从E2到最后一个数据范围的数据范围。

Answer 1

如果Rng是您的最后一个单元格，那么

Range(Range("E2"), Rng)).Select

Answer 2

非常确定有一种更简单的方法，但这种方法有效：

Dim i As Integer
i = 2

While ActiveWorkbook.ActiveSheet.Range("E" & i).Value <> ""
 i = i + 1
Wend

ActiveWorkbook.ActiveSheet.Range("E2:E" & (i - 1)).Select

如果你只记录它就更简单了：

Range("E2").Select
Range(Selection, Selection.End(xlDown)).Select