Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 宏以查找结束数据并将所有选定内容转换为数字格式_Excel_Vba - Fatal编程技术网

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

Excel 宏以查找结束数据并将所有选定内容转换为数字格式,excel,vba,Excel,Vba,我的数据总是从单元格E2开始,并以不确定的行数和不确定的列数向下移动。我需要一个宏来查找最后一行数据和最后一列数据,并突出显示从E2到数据的末尾,并将其全部转换为数字格式 我已经找到了如何查找行、列和列中包含数据的最后一个单元格。但是我不知道如何选择从E2到最后一个数据范围的数据范围。如果Rng是您的最后一个单元格,那么 Range(Range("E2"), Rng)).Select 很确定有一种更简单的方法,但这一种有效: Dim i As Integer i = 2 While Acti

我的数据总是从单元格E2开始,并以不确定的行数和不确定的列数向下移动。我需要一个宏来查找最后一行数据和最后一列数据,并突出显示从E2到数据的末尾,并将其全部转换为数字格式

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

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

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

很确定有一种更简单的方法,但这一种有效:

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

检查此URL以选择数据范围并设置相同的格式:您的问题中似乎有两个问题,我回答了看起来像是真正需要的问题。
Range("E2").Select
Range(Selection, Selection.End(xlDown)).Select