[已解决]如何用VBA将50个EXCEL表格中的行列数据自动提取到另一个excel有编制格式的表格中

pjy07

ppp710715 发表于 2017-10-12 17:44

大师：
你好！
我把你提供的宏运行后，发现提取的数据错误，具体有：数据10---数据25提取错了（数据10对应是文件“数据18”内的数据，数据11对应是文件“数据19”内的数据，数据12对应是文件“数据2”内的数据===），我把“数据1”表格内第一个数据用1表示，比较容易就发现相应提取的错误位置。其他没有错。

雄鹰2013

Sub 练习()
Dim sr$, fl$, wb As Workbook, sht As Worksheet
t = Timer
Application.ScreenUpdating = False
sr = ThisWorkbook.Path
Set sht = ThisWorkbook.Sheets("验收")
sht.UsedRange.Clear
With sht
      For i = 1 To 50
          fl = sr & "\数据" & i & ".xls"
          Set wb = Workbooks.Open(fl)
          arr = wb.Sheets(1).Range("a2:d12")
          n = UBound(arr): m = UBound(arr, 2)
          If i < 26 Then
             x = 2
             If i = 1 Then y = 1 Else y = .Cells(x, "iv").End(1).Column + 1
             .Cells(x, y).Resize(n, m) = arr
             r = .[a65536].End(3).Row + 3
          Else
             x = r
             If i = 26 Then y = 1 Else y = .Cells(x, "iv").End(1).Column + 1
             .Cells(x, y).Resize(n, m) = arr
          End If
          x = x - 1
          .Cells(x, y).Resize(1, m).Merge
          .Cells(x, y) = "数据" & i
          wb.Close 1
    Next i
    With .UsedRange
         .Font.Size = 10
         .Columns.AutoFit
         .HorizontalAlignment = xlCenter
         
    End With
End With
Application.ScreenUpdating = True
MsgBox Format(Timer - t, "0.00秒")
End Sub

exc姜

学习