动态合并单元格并填入序号

olin12345 · 发表于 2023-7-10 10:51

本帖最后由 olin12345 于 2023-7-10 11:25 编辑

如题，根据某单元格数值，按数值行数合并单元格。

lcluck2002 · 发表于 2023-7-10 11:20

新建 Microsoft Excel 工作表-0710

olin12345 · 发表于 2023-7-10 11:24

lcluck2002 发表于 2023-7-10 11:20
新建 Microsoft Excel 工作表-0710

就是想要的，谢谢老师帮助。

iu950 · 发表于 2023-7-10 11:26

附件供参考。。。

cyq4896 · 发表于 2023-7-10 11:27

本帖最后由 cyq4896 于 2023-7-10 11:28 编辑

猜一下...

limonet · 发表于 2023-7-10 11:34

代码审核中。

limonet · 发表于 2023-7-10 11:34

Sub limonet()
Application.DisplayAlerts = False
Dim i%, j%
Columns(4).UnMerge
For i = 2 To 20 Step Sheet1.[e7]
Range(Cells(i, "D"), Cells(i + Sheet1.[e7] - 1, "D")).Merge
j = j + 1: Cells(i, "D") = j
Next i
Application.DisplayAlerts = True
End Sub

olin12345 · 发表于 2023-7-10 11:35

本帖最后由 olin12345 于 2023-7-10 11:47 编辑

iu950 发表于 2023-7-10 11:26
附件供参考。。。

合并的再修改数值时就不正确了，需要再先手动取消合并区域，
在代码中间参照2楼老师的代码，加了一句 Columns("D").Delete，就可以了
也感谢老师的帮助。

olin12345 · 发表于 2023-7-10 11:38

limonet 发表于 2023-7-10 11:34
代码审核中。

是这样的，感谢老师。

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

[已解决] 动态合并单元格并填入序号

评分

评分

评分