假设数据在A2：A4
结果写在A5
Sub 合并()
Application.DisplayAlerts = False
[A5] = "求和=" & WorksheetFunction.Sum(Range("A2：A4")) & " 平均值=" & WorksheetFunction.Average(Range("A2：A4")) & _
" 计数=" & WorksheetFunction.CountIf(Range("A2：A4"), "<>")
Range("A2:A4").Select
Selection.Merge
End Sub
看我动态图解：相同区域合并－格式刷－完成。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024