DIY-Excel-合并单元格与最值

1、首先呢，你要启用宏，先设置一下启用宏吧

2、接着，你要插入一个模块

3、复制以下代码到新建的模块；

Function mymax(rg As Range)

    mymax = WorksheetFunction.Max(rg.Resize(Application.ThisCell.MergeArea.Count, 1))

End Function

Function mymin(rg As Range)

    mymin = WorksheetFunction.Min(rg.Resize(Application.ThisCell.MergeArea.Count, 1))

End Function

4、如图，选择D列的2个合并单元格，输入公式=mymax(c2)，按ctrl+enter结束

5、如图，选择E列的2个合并单元格，输入公式=mymin(C2)，按ctrl+enter结束

6、这样就求出了合并单元格的最大值与最小值了