如何快速取消表中多个合并单元格，但保持原有格式不变

f600006 · 发表于 2023-12-25 07:14

表中有多个合并单元格，如何快速将合并单元格取消，但要保持原有格式不变。
虽然可以通过一个一个取消合并单元格，再跨列居中速度太慢了。

tiger1976 · 发表于 2023-12-25 07:35

用VBA中的cells.unmerge

f600006 · 发表于 2023-12-25 07:58

多谢指导，我是小白，上传了附件，请帮实现，我再慢慢学，谢谢！

沈默00 · 发表于 2023-12-25 08:22

f600006 发表于 2023-12-25 07:58
多谢指导，我是小白，上传了附件，请帮实现，我再慢慢学，谢谢！

去VBA版块发贴

huarong7984 · 发表于 2023-12-25 09:14

Sub 解除合并单元格并保持原格式()
Range("C1:E1,F1:I1,J1:L1").Select
With Selection
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlCenter
End With
Selection.UnMerge
With Selection
      .HorizontalAlignment = xlCenterAcrossSelection
      .VerticalAlignment = xlCenter
End With
End Sub

huarong7984 · 发表于 2023-12-25 09:54

本帖最后由 huarong7984 于 2023-12-25 10:06 编辑

所发示例，仅供参考，应在VBA板块发贴

代码修改为：
Sub 解除合并单元格并保持原格式()
Sheets("测试文件").Select
Range("C1:E1,F1:I1,J1:L1").Select                         '以下代码为取消指定区域的单元格合并
With Selection
      .HorizontalAlignment = xlGeneral
      Selection.UnMerge                                        '以下代码为保留原有跨列居中格式
      .HorizontalAlignment = xlCenterAcrossSelection
End With
Range("D1").Select
End Sub

沈默00 · 发表于 2023-12-25 14:50

修改一下

沈默00 · 发表于 2023-12-25 14:52

本帖最后由沈默00 于 2023-12-25 14:53 编辑

代码适用于工作表中所有在同一行中有合并单元格的情况，也可以再加强为多个工作表一起操作

f600006 · 发表于 2023-12-25 21:31

谢谢大家的热情帮助！

橒♂蝣 · 发表于 2023-12-26 13:15

楼主跨列居中666

		自动登录	找回密码
密码			免费注册

[求助] 如何快速取消表中多个合并单元格，但保持原有格式不变