ALT+F11——右键ThisWorkbook——插入模块——粘贴如下代码
Function mergecount(rng1 As Range)
If rng1 <> "" Then
mergecount = rng1.MergeArea.Count
End If
End Function
再调用公式即可
ALT+F11——右键ThisWorkbook——插入模块——粘贴如下代码
Function mergecount(rng1 As Range)
If rng1 <> "" Then
mergecount = rng1.MergeArea.Count
End If
End Function
再调用公式即可
