求助大神如何实现自动合并

youlong8508 · 发表于 2021-5-16 20:00

本帖最后由 youlong8508 于 2021-5-17 12:31 编辑

如图所示，部门、人员类别、人数那里需要合并，即数据源表B C D列合并后变成结果表BCDE列那样的。
另外，数据源表中数据是函数生成的，也就是说数据源的行数是不定的，提供的仅为参考数据。

这个其实是为了打印的时候好看一点。
数据源表

结果表

压缩包为zip格式，已测试过，附件下载时加扩展名为zip可以下载、解压。

浜哄憳琛 (5.94 KB, 下载次数: 9)

liulang0808 · 发表于 2021-5-16 21:31

一，论坛内雷同案例很多，楼主可以查阅
二，如果还需帮助，建议上传合适附件。。。。

youlong8508 · 发表于 2021-5-17 06:51

liulang0808 发表于 2021-5-16 21:31
一，论坛内雷同案例很多，楼主可以查阅
二，如果还需帮助，建议上传合适附件。。。。

感谢您的回复，这个附件就是合适的，只不过行没那么长

liulang0808 · 发表于 2021-5-17 07:13

youlong8508 发表于 2021-5-17 06:51
感谢您的回复，这个附件就是合适的，只不过行没那么长

无法下载附件的，楼主核对看下

youlong8508 · 发表于 2021-5-17 07:20

本帖最后由 youlong8508 于 2021-5-17 07:22 编辑

liulang0808 发表于 2021-5-17 07:13
无法下载附件的，楼主核对看下

已测试过，附件下载时加扩展名为zip可以下载、解压

youlong8508 · 发表于 2021-5-17 07:28

liulang0808 发表于 2021-5-16 21:31
一，论坛内雷同案例很多，楼主可以查阅
二，如果还需帮助，建议上传合适附件。。。。

人员类别、人数那里也需要合并，如图所示，数据源表B C D列合并后变成，结果表BCDE列那样的

liulang0808 · 发表于 2021-5-17 07:38

youlong8508 发表于 2021-5-17 07:28
人员类别、人数那里也需要合并，如图所示，数据源表B C D列合并后变成，结果表BCDE列那样的

论坛有很多相关案例，楼主可以查阅下
附件真的下载不了

youlong8508 · 发表于 2021-5-17 07:50

liulang0808 发表于 2021-5-17 07:38
论坛有很多相关案例，楼主可以查阅下
附件真的下载不了

我重新上传下吧

liulang0808 · 发表于 2021-5-17 08:30

Sub 按钮1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For j = Cells(Rows.Count, 2).End(3).Row To 4 Step -1
      If Cells(j, 2) = Cells(j - 1, 2) Then
         Cells(j - 1, 2).Resize(2).Merge
         Cells(j - 1, 4) = Cells(j - 1, 4) + Cells(j, 4)
         Cells(j - 1, 4).Resize(2).Merge
         If Cells(j, 3) = Cells(j - 1, 3) Then
            Cells(j - 1, 3).Resize(2).Merge
            For i = 5 To 5
                  Cells(j - 1, i) = Cells(j - 1, i) + Cells(j, i)
                  Cells(j - 1, i).Resize(2).Merge
            Next i
         End If
      End If
Next j
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2021-5-17 08:30

附件内容供参考。。。。。

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

[求助] 求助大神如何实现自动合并

评分

评分