Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.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

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/lua/3.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 VBA设置从单元格到具有值的最后一列的范围_Excel_Vba - Fatal编程技术网

Excel VBA设置从单元格到具有值的最后一列的范围

Excel VBA设置从单元格到具有值的最后一列的范围,excel,vba,Excel,Vba,我已经设置了从单元“U7”到“HV7”的范围。 此范围的目的是计算其中的值 当前代码正在运行,但我希望通过选择“到最后一个值”来避免值超出HV列的可能性 Dim countRange As Range Set countRange = Range("U7:HV7") Dim rowcount As Long rowcount = Application.WorksheetFunction.CountA(countRange) @超对称性为我提供了理想的解决方案 Set c

我已经设置了从单元“U7”到“HV7”的范围。 此范围的目的是计算其中的值

当前代码正在运行,但我希望通过选择“到最后一个值”来避免值超出HV列的可能性

Dim countRange As Range
Set countRange = Range("U7:HV7")

Dim rowcount As Long
rowcount = Application.WorksheetFunction.CountA(countRange)

@超对称性为我提供了理想的解决方案

Set countRange = Range("U7", Cells(7, Columns.Count).End(xlToLeft)

我的表格中的值格式正确,因此我可以使用此解决方案从单元格U7中选择所有值,直到右边的最后一个值。

是否要在计数中包含HV以外的值(如果存在)?如果是这样,请尝试设置countRange=Range(“U7”,Cells(7,Columns.Count).End(xlToLeft))@supersymetry这正是我想要做的,只是不知道如何设置它。