Excel 计算vba中命名范围的行和列

Excel 计算vba中命名范围的行和列,excel,vba,Excel,Vba,我试图从excel中的命名范围计算vba中的行数和列数。然后在二维数组中使用行和列计数来执行其他计算。命名的范围是“CF_输入”,它来自称为“价格_输入”的工作表中的A2:Z60。我似乎无法使用命名范围获得行和列计数,因此我使用下面的代码和offset方法来计算行和列。有没有一种方法可以使用实际的命名范围来实现这一点?我对整个编程都不熟悉,所以我为这个简单的问题道歉 Dim Inputs As Variant Sheets("Price_Volumes_Input").Activate

我试图从excel中的命名范围计算vba中的行数和列数。然后在二维数组中使用行和列计数来执行其他计算。命名的范围是“CF_输入”,它来自称为“价格_输入”的工作表中的A2:Z60。我似乎无法使用命名范围获得行和列计数,因此我使用下面的代码和offset方法来计算行和列。有没有一种方法可以使用实际的命名范围来实现这一点?我对整个编程都不熟悉,所以我为这个简单的问题道歉

Dim Inputs As Variant    
Sheets("Price_Volumes_Input").Activate

Inputs = Range("A2", Range("Z2").End(xlDown).End(xlToRight)) 

欢迎来到VBA编程的世界。如果你要做Excel VBA编程,那么你需要给Chip Pearson的网站添加书签。我发现它非常有用。链接是

有很多方法可以做到这一点。例如,一个简单的方法是

Dim dataRows As Long
Dim dataCols As Long
Dim workArray as Variant

With ActiveWorkbook.Sheets("Price_Volumes_Input").Range("CF_Inputs")
    dataRows = .Rows.Count
    dataCols = .Columns.Count
End With

Dim workArray() As Variant
Redim workArray(dataRows, dataCols) as Variant
Dim i as Long, j as Long
For i = 0 to dataRows - 1
    For j = 0 to dataCols - 1
        'do the calculations
    Next j
Next i

工作表(“价格\数量\输入”).范围(“CF \输入”).行数
感谢您的反馈,非常有用。我可以使用该代码修改行和列计数,还可以填充动态数组。工作表(“输入”)。激活Dim Row\U Count作为Long Dim Column\U Count作为Long Dim Count=工作表(“输入”)。范围(“CF\U输入”)。行数Count Column\U Count=工作表(“输入”)。范围(“CF\U输入”,范围(“CF\U输入”)。结束(xlDown)。结束(xlToRight))