合并多工作簿及多工作表问题，求助！

xjx496111

Sub 合并多工作簿及多工作表()
    Dim MyPath As String, MyFile As String, i As Integer
    Dim Wb As Workbook, arr
    Application.ScreenUpdating = False
    MyPath = ThisWorkbook.Path
    MyFile = Dir(MyPath & "\*.xls")
    Do Until MyFile = ""
        If MyFile <> ThisWorkbook.Name Then
            Set Wb = Workbooks.Open(MyPath & "\" & MyFile)
            For i = 1 To Wb.Worksheets.Count
                arr = Sheets(i).UsedRange
                ThisWorkbook.Sheets(i).Range("A" & rows.count).End(xlUp).Offset(1).Resize(UBound(arr), UBound(arr, 2)) = arr
            Next
            Wb.Close
        End If
        MyFile = Dir
    Loop
    Application.ScreenUpdating = True
End Sub
现在需要删除arr赋值后其中三列连续数据，请问怎么实现？另外如果其中某个arr复制区域没有数据，就会导致汇总错行，怎么解决？

duyanzhang2011

dir函数我都不太懂。留个记号学习。

hwc2ycy

上数据吧，最好有效果图。
”现在需要删除arr赋值后其中三列连续数据，请问怎么实现？"这个不太理解。

zjdh

无法理解楼主的要求！！

xjx496111

比如说数组赋值后有60行，25列，但是第6行到10行不需要，需要怎么实现？

xjx496111

在线等回复，请高手帮助！！！

hoogle

用循环一个一个处理。

无聊的疯子

添加一个代码,取指定位置的数据就可以了

1. 
   
2.             With Wb
   
3.               For i = 1 To .Worksheets.Count
   
4.                   Hx = .Sheets(i).Range("A65536").End(xlUp).Row      '提取使用位置
   
5.                   Arr = .Sheets(i).Range("A10:F" & Hx)                     '提取数据到数组
   
6.                 Next
   
7.             End With
   

复制代码

ThisWorkbook.Sheets(i).Range("A" & Rows.Count).End(xlUp)
看这代码你的数据写入也是要跟着变的??

如果两个工作薄中工作表名字的顺序不一样,那结果不是就写错地方了?

xjx496111

是的，怎么删除？