首页 > 奇闻异事 > 古代奇闻 >

excel撤销合并单元格并填充相应内容的宏

古代奇闻 2021-06-25 22:08:42

1、按快捷键Alt+F11,打开VBA编辑器。在“工程”窗口中双击选择包含合并单元格的工作表,在右侧的代码窗口中粘贴下列代码:

Private Sub kbiji()
Dim i As Range
For Each i In ActiveSheet.UsedRange
If i.Address <> i.MergeArea.Address And i.Address = i.MergeArea.Item(1).Address Then
i.MergeArea.Select
i.MergeArea.UnMerge
Selection.FillDown
End If
Next i
End Sub


2、将光标定位到代码中,单击工具栏中的“运行子过程/用户窗体”按钮或按F5键运行代码,当前工作表中的合并单元格都将被解除合并。



标签: excel撤销合并单元格

[免责声明]本文来源于网络,不代表本站立场,如转载内容涉及版权等问题,请联系邮箱:83115484#qq.com,#换成@即可,我们会予以删除相关文章,保证您的权利。转载请注明出处:http://www.tutorialesandroide.com/excel/excel/2252.html

飞兔问答 Copyright © 2016-2021 www.tutorialesandroide.com. Some Rights Reserved. 备案号:渝ICP备2023004149号-43

本站非盈利性质,内容来源于互联网,如有冒犯请联系我们立删邮箱:83115484#qq.com,#换成@就是邮箱 网站地图