VBA写一个参数为单元格区域的函数

可以使用VBA编写一个参数为单元格区域的函数来处理该区域中的数据。下面是一个示例函数，它将单元格区域中的所有数字相加并返回总和：

Function SumRange(rng As Range) As Double
    Dim cell As Range
    Dim total As Double
    
    total = 0
    
    For Each cell In rng
        If IsNumeric(cell.Value) Then
            total = total + cell.Value
        End If
    Next cell
    
    SumRange = total
End Function

要使用此函数，请在Excel工作表中选择一个单元格，并在公式栏中输入以下内容：`=SumRange(A1:A10)`，其中A1:A10是您要计算总和的单元格区域。函数将返回该区域中所有数字的总和。