Excel将范围传递给一个函数

如何将一系列单元格传递给一个函数，以便可以分别处理这些项目。 因此，如何将一系列单元格传递给一个函数。

我试图做到这一点，所以我可以有一个方法，使用后续

Function processNumbers(Var as Range) 

从这我不知道我怎么可以得到列表中的项目数量和横向数组来编辑内容。 有没有比上述更好的方式带来的项目。

Answer 1

所述的函数声明是正确的方法。

 Function processNumbers(Var as Range) As Variant NumberOfCells = Var.Cells.Count NumberOfRows = Var.Rows.Count NumberOfColumns = Var.Columns.Count RangeAddress = Var.Address ' Iterate the range (slow) For Each Cl in Var.Cells ' ... Next ' Get Values from range as an array Dim Dat as variant Dat = var ' Iterate array For rw = LBound(Dat,1) to UBound(Dat,1) For col = LBound(Dat,2) to UBound(Dat,2) ' reference Dat(rw,col) Next col Nest rw ' Put (modified) values back into range. Note: won't work in a UDF Val = Dat End Function