合并工作表时如何取到倒数第二行

yqzx

合并时不要分表中的合计项。
合并.xlsm.rar (30.11 KB, 下载次数: 8)

2023-6-30 13:41 上传

点击文件名下载附件

ykcbf1100

附件没用的，请重新上传吧。

吴中泉

ykcbf1100 发表于 2023-6-30 13:50
附件没用的，请重新上传吧。

吴中泉

红框内为修改增加的代码，实现了你的需求

ykcbf1100

附件供参考。。

于箱长

吴中泉

ykcbf1100 发表于 2023-6-30 19:16
附件供参考。。

楼主要你改错，你却重新写一个，好人啊！

吴中泉

于箱长 发表于 2023-6-30 19:18

乡长就喜欢这样默默多干事而不计较的人，在偷着乐呢。

ykcbf1100

吴中泉 发表于 2023-6-30 19:49
楼主要你改错，你却重新写一个，好人啊！

重写一个更省事。

yqzx

谢谢大家！
参考大家的代码，修改如下：
Sub hbgzb() '合并工作表
    Dim i As Integer, irow As Integer
    Sheets("汇总表").Rows("2:100").Delete '防止放数据的表中之前有数据，提前清空
    For i = 1 To Sheets.Count '从第一个到最后一个工作表的遍历
        '判断一下是不是我们要的工作表
        If Sheets(i).Name Like "*部" Then 'like是一个比较运算符，支持通配符
            With Sheets("汇总表")
                irow = .Range("a" & Rows.Count).End(xlUp).Row + 1
                'irow代表汇总表已有行的下一行
                Sheets(i).UsedRange.Offset(1, 1).Copy .Range("a" & irow)  '使用偏移去掉标题行多一行空行,省去判断一共有多少行
                'copy后的空格很重要，把一个工作表copy到另一个表
            End With
        End If
    Next i
    MsgBox "合并完成" '全部完成会有一个提示
End Sub