EXCEL:取消合并且等于原合并值

最新推荐文章于 2024-04-29 21:13:46 发布

zzz1139995

最新推荐文章于 2024-04-29 21:13:46 发布

阅读量563

点赞数

分类专栏： excel 文章标签： excel

本文链接：https://blog.csdn.net/zzz1139995/article/details/53001767

版权

excel 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

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)
If rng.MergeCells Then
cell = rng.MergeArea.Address
val = rng.Value
rng.UnMerge
Range(cell).Value = val
End If
Next
End Sub