Question

VBA把这个自定义函数改写用数组 含有合并单元格

VBA把这个自定义函数改写用数组 含有合并单元格

Function gather(rng As Range) As Double
'将rng参数所代表的单元格重置为列数为1、行数等于公式所在的合并区域，然后对这个区域求和，将计算结果作为函数的最终结果
gather = WorksheetFunction.Sum(rng.Resize(Application.ThisCell.MergeArea.Rows.Count, 1))
End Function

Answer 1

Function 合并(b As Range)
Dim d
Set d = CreateObject("Scripting.Dictionary")
For Each c In b
d(c.Value) = ""
Next
合并 = Join(d.keys, "")
Set d = Nothing
End Function

Answer 2

飞度发动机的，

Answer 3

Function gather(rng As Range) As Double
    arr = rng.Resize(Application.ThisCell.MergeArea.Rows.Count, 1)
    For i = 1 To UBound(arr)
        gather = gather + arr(i, 1)
    Next
End Function