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

laoau138

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

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

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-10-27 11:37

不用参数。

1. Function gather1() As Double
   
2. Dim i&, arr
   
3. With Application.ThisCell
   
4.   arr = .Offset(, -1).Resize(.MergeArea.Rows.Count)
   
5.   For i = 1 To UBound(arr)
   
6.     gather1 = gather1 + arr(i, 1)
   
7.   Next
   
8. End With
   
9. End Function

复制代码

跳转到最佳答案楼层

大灰狼1976

不用参数。

1. Function gather1() As Double
   
2. Dim i&, arr
   
3. With Application.ThisCell
   
4.   arr = .Offset(, -1).Resize(.MergeArea.Rows.Count)
   
5.   For i = 1 To UBound(arr)
   
6.     gather1 = gather1 + arr(i, 1)
   
7.   Next
   
8. End With
   
9. End Function

复制代码

laoau138

大灰狼1976 发表于 2017-10-27 11:37
不用参数。

VBA用两种方法把AB列省市合并起来


http://www.excelpx.com/thread-434647-1-1.html



VBA如何把所有合并单元格取消合并


http://www.excelpx.com/thread-434646-1-1.html