改了一大堆,,终于搞出来第一个可以用的程序了,,感激涕零。。
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.......
阅读全文