发布网友 发布时间:2022-04-25 12:24
共2个回答
热心网友 时间:2024-10-22 08:30
开发工具->宏 创建一个宏
输入代码
保存后,在菜单栏选择运行,执行完成后就都改过来了。
代码如下:Sub 合并()
Dim a As Range, b As Range
For Each a In ActiveSheet.UsedRange
If a.MergeCells Then
Set b = a.MergeArea
b.UnMerge
b.Value = a.Value
End If
Next
End Sub
热心网友 时间:2024-10-22 08:31
得用公式,把问题作为内容(邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件,以免误删)、excel样表文件(把现状和目标效果表示出来)作为附件发来看下 yqch134@163.com