添加序号，合并单元格，求和

jiangyuqin1025 · 发表于 2018-10-15 15:28

有多个工作表，行数不定，下面表格红色的是原始数据，希望做出右边表格的格式，添加序号，合并E3:G3像右边表格一样，最后行添加合计，计算金额

abc123281 · 发表于 2018-10-15 19:43

工作簿abc123.rar (54.57 KB, 下载次数: 7)

jiangyuqin1025 · 发表于 2018-10-15 19:55

abc123281 发表于 2018-10-15 19:43

你理解错了……我要的不是汇总每个工作表

abc123281 · 发表于 2018-10-15 20:40

哦那很抱歉你另等高明吧

jiangyuqin1025 · 发表于 2018-10-16 09:51

有没有会的？？？？？？？

不知道为什么 · 发表于 2018-10-16 10:36

jiangyuqin1025 发表于 2018-10-16 09:51
有没有会的？？？？？？？

这么简单的东西，自己录制个宏都可以解决！

wj2368 · 发表于 2018-10-16 10:43

。。。。。。。。。。。。。

yaozong · 发表于 2018-10-16 11:02

Sub yz()
Dim sh As Worksheet, r&
For Each sh In Worksheets
  With sh
r = .[d3].End(4).Row + 1
.[e3:g3].Merge
For i = 4 To r - 1
   .Cells(i, 3) = i - 3
   s = s + .Cells(i, 8)
   .Cells(i, 5).Resize(1, 3).Merge
Next
.Cells(r, 3) = "合计"
.Cells(r, 8) = s
.Cells(r, 3).Resize(1, 5).Merge
.[c3].Resize(r - 2, 6).Borders.LineStyle = 1
  End With
Next
End Sub

yaozong · 发表于 2018-10-16 11:05

jiangyuqin1025 发表于 2018-10-15 19:55
你理解错了……我要的不是汇总每个工作表

参考附件。。。。。。。。。。。

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

[求助] 添加序号，合并单元格，求和

评分