Excel单元格如何根据某列批量合并相对应单元格

lizhipei78

稍微懂点常识的人都知道，Excel合并单元格真的很麻烦，是数据处理大忌，可我们的BOSS就是喜欢合并单元格啊，轮不到你一个搬砖的说话，所以很多人应该都是保留一份原始表，根据不同老板的风格再合并不同的单元格。

因经常要碰到根据某个人或者某个字段合并单元格，本人一般是F4键，虽然比30%的不知道这个快捷键的人快了那么一丁点，但是工作量还是很大的啊，所以Excel大神有什么办法么？
如下图所示，B列是根据姓名事先合并好的单元格，现在要求是A、C、D、E、H、I、J、N列都分别要合并，合并的效果如C列所示。


你说就这个表格，让人做起来是不是头痛啊！！！
Excel大神们能不能写一个VBA程序出来，或者写一个插件出来来简化工作。


单元格合并.rar (42.4 KB, 下载次数: 47)

2020-6-30 10:56 上传

点击文件名下载附件

qazwsxedc123!

看来你只知道F4啊~我告诉你，还有一个功能叫格式刷~~右边评分2朵花哦~

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, j, p, r, pos
  Call doevent(False)
  pos = Split("A,C,D,E,H,I,J,N", ",")
  p = 1: r = Cells(Rows.Count, "f").End(xlUp).Row
  For i = 2 To r
    If Len(Cells(i + 1, "b").Value) Or i = r Then
      If i - p > 1 Then
        For j = 0 To UBound(pos)
          Cells(p + 1, pos(j)).Resize(i - p).Merge
        Next
      End If
      p = i
    End If
  Next
  Call doevent(True)
End Sub

Function doevent(flag As Boolean)
  With Application
    .DisplayAlerts = flag
    .ScreenUpdating = flag
  End With
End Function

governor0084

“F”）.End(xlup).row的f需要根据实际修改吗

chxw68

参与一下。

jjmysjg

合并单元格

lizhipei78

qazwsxedc123! 发表于 2020-7-1 11:52
看来你只知道F4啊~我告诉你，还有一个功能叫格式刷~~右边评分2朵花哦~

不好意思，之前忘记这个帖子了，今天有人回复了才看到，你的方法是了最实用的

lizhipei78

chxw68 发表于 2024-4-30 10:14
参与一下。

感谢，这个是好久之前求助贴了，现在知道方法了，其实格式刷是最快的