把多个工作簿的工资审批表汇总在一个工作表中

lgjin

各位老师：1、先把汇总表原有工资审批表删除
2、把各个工作簿的工资审批表复制并粘贴到汇总表的同一个工作表中，而且保留原工资审批表的格式
3、相邻两个工资审批表之间空一行
谢谢！

沈默00

像作业题哟，
DIR循环工作薄，，，复制指定区域到汇总表的定位单元格

shiruiqiang

======================

lgjin

shiruiqiang 发表于 2024-4-8 08:09
======================

谢谢老师！

3190496160

Sub 合并()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ww = ThisWorkbook
Sheets("合并").Delete
lj = ThisWorkbook.Path & "\其他\"
f = Dir(lj & "*.xls*")
Do While f <> ""
    Set wb = Workbooks.Open(lj & f, 0)
    m = m + 1
    If m = 1 Then
        wb.Worksheets(1).Copy after:=ww.Worksheets(ww.Worksheets.Count)
        With ww.ActiveSheet
            .Name = "合并"
        End With
    Else
         With ww.ActiveSheet
            r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            wb.Worksheets(1).Rows("1:20").Copy .Cells(r, 1)
        End With
    End If
    wb.Close False
f = Dir
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "ok!"
End Sub

3190496160

XX市第八中学.rar (165.75 KB, 下载次数: 28)

2024-4-8 08:36 上传

点击文件名下载附件

ykcbf1100

保留原格式，附件供参考。。。

quqiyuan

lgjin

3190496160 发表于 2024-4-8 08:36

多谢老师！

lgjin

ykcbf1100 发表于 2024-4-8 08:53
保留原格式，附件供参考。。。

多谢老师！