写出了第一个VBA程序了：合并不同的文件到同一张sheet

改了一大堆，，终于搞出来第一个可以用的程序了，，感激涕零。。

Sub mm()    Application.ScreenUpdating = False    Dim files    files = Application.GetOpenFilename("所有喵喵哒(*.xls*),*.xls*", , "喵喵哒", , True)    For i = LBound(files) To UBound(files)        Set wb = Workbooks.Open(files(i))        With wb.Worksheets("sheet1")            maxrow = .Cells(Rows.Count, 1).End(xlUp).Row            maxcolumn = .Cells(1, Columns.Count).End(xlToLeft).Column            ir = ThisWorkbook.Sheets("Sheet1").Range("A1048576").End(xlUp).Row + 1            .Range("a1").Resize(maxrow, maxcolumn).Copy ThisWorkbook.Sheets("sheet1").Range("a" & ir)            wb.Close False        End With    Next iEnd Sub