使用道具 举报
学习学习
用函数好你不行!
Sub 合并含数据()Dim hb$, aa$Application.DisplayAlerts = False
For Each i In Selection If i.Value <> "" Then hb = hb & i.Value Else End If Next Selection.Merge Selection(1).Value = hb Application.DisplayAlerts = True End Sub
VBa处理一下吧!先需要合并的 运行宏就可以!
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )
GMT+8, 2024-5-31 12:09 , Processed in 0.175204 second(s), 9 queries , Gzip On, Yac On.
Powered by Discuz! X3.4
Copyright © 2001-2020, Tencent Cloud.