將範圍傳遞給函數的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