如何将excel数据用vba或宏处理到另一张表

'返回所有工作表中的最大值
function maxallsheets（cell as range)
    dim maxval as double
    dim addr as string
    dim wksht as object
    application.volatile
    addr = cell.range（"a1").address
    maxval = -9.9e+307
    for each wksht in cell.parent.parent.worksheets
        if wksht.name = cell.parent.name and addr = application.caller.address then
            'avoid circular reference
        else
            if isnumeric（wksht.range（addr)) then
                if wksht.range（addr) > maxval then
                    maxval = wksht.range（addr).value
                end if
            end if
        end if
    next wksht
    if maxval = -9.9e+307 then
        maxval = 0
    end if
    maxallsheets = maxval
end function