工作簿之间数据的复制问题？

colour250

求助.rar (26.9 KB, 下载次数: 37)

2018-1-14 12:52 上传

点击文件名下载附件


要求：1、当点击按钮【添加至汇总表】时将从第2行即A2开始将有数据的行复制到另一工作簿的汇总表。谢谢

          2、当汇总工作表有数据时如a4行有数据，则复制到a5行，数据是累加的，不是覆盖式，谢谢

研究研究

含有表单。

研究研究

Dim Wb As Workbook, wind As Window, Arr, L As Long
Set Wb = GetObject(ThisWorkbook.Path & "\支出凭证.xlsx")
        Set wind = Wb.Windows(1)
        Arr = Wb.Sheets("支出凭证").Range("A1").CurrentRegion.Value
        wind.Visible = True
        Wb.Close True   
        Set Wb = Nothing  
        Set wind = Nothing   
        L = Sheets("支出汇总表").Range("A1048576").End(xlUp).Row + 1
       Range("A" & L).Resize(UBound(Arr), UBound(Arr, 2)) = Arr