有大神可以帮我多表合并吗？谢谢。 - 编程论坛

#2

yiyanxiyin2023-10-19 15:15

'将表2的数据追加到表1中
Public Sub CopySheet2Rows()
    Dim x As Integer, FinalRow As Integer, NextRow As Integer
    Dim sh_src As Worksheet
    Dim sh_dst As Worksheet
    Set sh_src = ThisWorkbook.Worksheets("2")
    Set sh_dst = ThisWorkbook.Worksheets("1")
    ' Find the last row of data
    FinalRow = sh_src.Cells(sh_src.Rows.Count, 1).End(xlUp).Row
    ' Loop through each row
    For x = 2 To FinalRow
        ' Decide if to copy based on column D
        If Not IsEmpty(sh_src.Cells(x, 4)) Then
            sh_src.Cells(x, 1).Resize(1, 12).Copy
            'Sheets("SheetA").Select
            NextRow = sh_dst.Cells(sh_dst.Rows.Count, 1).End(xlUp).Row + 1
            sh_dst.Cells(NextRow, 1).Select
            sh_dst.Paste
        End If
    Next x
End Sub

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2023-10-19 15:34编辑过]

#3

盖世英雄瑞宝2023-10-19 18:00

回复 2楼 yiyanxiyin

谢谢你，另起一个新的表格 “追加所有表格的数据”，我不会写，你可以告诉我吗？谢谢

[此贴子已经被作者于2023-10-19 18:02编辑过]

#4

yiyanxiyin2023-10-19 18:24

参考 CopySheet2Rows()的代码, 实现一个通用的函数CopySheetRows(sheetname), 遍历sheets, 然后调用CopySheetRows(sheetname)