将范围传递给函数的Excel

Question

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

我试图做到这一点，所以我可以有一个使用遵循

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