快速合并与拆分同值单元格

每当遇到查询数据输出成Excel格式时,发现有部分数据列是重复值,一行一行的实在看着花,就会想着手动合并下,但是遇到大数据我们不是要累死? 所以我们得求助VBA解决了一劳永逸。 合并代码: Sub hb() Application.DisplayAlerts = False Dim r() As Range Set d = CreateObject("Scripting.Dictionary") For Each cel In Range("A1:F10"

借尸还魂CHAR函数合并文本

      最近工作忙比较忙,又接了一个人的活,事情挺多的,这应该是我几个月以来第一次重写Excel分享吧。 总想在最短的时间内,将自己的身边的一些日常数据实现自动化计算,不想参与太多的手工计算。 在整理高速通行证相关信息时,原先是调用一张外部数据表来刷新数据,但是有些规则全适合,所以今天就想着重做一张。 在实现上图B2这样预期目标是遇到了一点问题,将A1和A2合并成一个数,当然可能很多人说使用’&’就可以了或者函