html 单元格拆分及合并,一键轻松搞定合并和拆分单元格-excel拆分单元格

用Excel做统计是很多职场伙伴的喜好,因为划分清晰明了,Excel的行列线像经纬线一样将内容分的清楚明白。但是绝大多数盆友都被合并和拆分单元格整的苦不堪言吧,有的请举爪。。。老板们喜欢将相同内容合并着看,而做统计的时候合并单元格带来的痛苦是谁用谁知道哇。今天我们一起脱离苦海,走上人生巅峰。

总体思路是:合并时从下至上,即从最后一行开始判断单元格内容是不是相同,相同则合并,不相同跳过;

拆分时是从上到下,即从第一行开始判断单元格是不是合并了,合并了就拆开,没合并跳过1. 打开VBA编辑区,插入模块,输入以下代码

1U0111K1-0.jpg

Sub Button1_Click()

Dim k As Integer

Application.DisplayAlerts = False

For k = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1

If Cells(k, 1) = Cells(k, 1).Offset(-1, 0).Value Then

Range(Cells(k, 1), Cells(k - 1, 1)).Merge

End If

Next

Application.DisplayAlerts = True

End Sub

Sub Button2_Click()

Dim m, n As Integer

Application.DisplayAlerts = False

For m = 1 To [A1048576].End(xlUp).Row '最后一行数据的行数

If Cells(m, 1).MergeCells = True Then

n = Cells(m, 1).MergeArea.Count '合并的单元格个数

Range(Cells(m, 1), Cells(m + n - 1, 1)).UnMerge '拆分单元格

Range(Cells(m, 1), Cells(m + n - 1, 1)).FillDown '给每个单元格填充数据

m = m + n - 1

End If

Next

End sub

2.插入合并及拆分的按钮

开发工具→插入→表单控件→按钮→指定宏(Button1_Click()/Button2_Click())→按钮右键修改控件信息

1U011Na-1.jpg

1U011J60-2.jpg

看下最后效果爽一爽吧

1U0112415-3.jpg

参与评论 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:1024 设计师:我叫白小胖 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值