EXCEL:取消合并且等于原合并值
Sub 取消合并且等于原合并值()
If Selection.Count = 1 Then MsgBox "请选择合并单元格再执行本工具!", 64, "友情提示": Exit Sub
Dim rng As Range, val, cell As String
For Each rng In Application.Intersect(Selection, ActiveSheet.UsedRange
原创
2016-11-01 22:15:35 ·
574 阅读 ·
0 评论