怎么快速合并单元格，如图

aleaflin · 发表于 2019-7-8 12:02

结合7楼代码，实现9楼说的功能：
Private Sub commandbutton1_click()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) <> "" Then
j = Application.WorksheetFunction.CountIf(ActiveSheet.Columns(1), Cells(i, 1))
Cells(i, 100).Resize(j).Merge
Cells(i, 100).Resize(j).Copy
Cells(i, 1).PasteSpecial Paste:=xlPasteFormats
i = i + j - 1
End If
Next
Columns(100).Delete
End Sub

迈鸿 · 发表于 2019-7-8 13:26

wangweihebtu 发表于 2019-7-8 11:18
自己手动录入下吧，也方便你更好的理解

你好怎么能像你这样录制小的动图，能告诉一下吗，谢谢

wangweihebtu · 发表于 2019-7-8 14:12

迈鸿发表于 2019-7-8 13:26
你好怎么能像你这样录制小的动图，能告诉一下吗，谢谢

ScreenToGif

迈鸿 · 发表于 2019-7-8 16:30

wangweihebtu 发表于 2019-7-8 14:12
ScreenToGif

谢谢！感觉这个很好用

999demon · 发表于 2019-7-9 11:30

多谢各位指点@zpy2 @nsxlyj @zbzb2007 @迈鸿 @jorrui111

cross8 · 发表于 2020-10-29 02:10

aleaflin 发表于 2019-7-8 12:02
结合7楼代码，实现9楼说的功能：
Private Sub commandbutton1_click()
For i = 2 To Cells(Rows.Count, 1 ...

我去试试非常感谢

sandays · 发表于 2020-10-29 07:57

透视表就可以了吧，VBA有点兴师动众了

毛士新 · 发表于 2020-10-29 09:03

提示: 作者被禁止或删除内容自动屏蔽

jany1312 · 发表于 2020-10-29 16:10

附近中有代码，先选中想要合并的列，可以是任何列，或者多列同时，然后再点击控件，然后输入是合并还是拆分，方便的很

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

[已解决] 怎么快速合并单元格，如图

最新热点 /1

毛士新毛士新当前离线性别保密 UID 4474722 阅读权限 0 注册时间 2020-10-9 在线时间小时最后登录 1970-1-1 积分 19 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2020-10-29 09:03 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报