vba合并工作簿，请大帅教教我啊

znlj1025

我写的以下代码，怎么有的工作簿能运行，有的工作簿不能运行啊，添加一个不能运行的工作簿，请大神指点一下吧
Sub test()
Dim sr$, wb As Workbook, ws As Worksheet, rngs As Range
Dim cell As Range
sr = Dir(ThisWorkbook.Path & "\*.xlsx")
Columns("a:j").ClearContents
[a1] = "序号": [b1] = "所在校区": [c1] = "学生姓名": [d1] = "公立校名称": [e1] = "公立校班级": [f1] = "大桥学科": [g1] = "大桥教材": [h1] = "教师": [i1] = "班级": [j1] = "时段"
Do
If sr <> "汇总.xlsm" Then
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & sr)
For Each ws In wb.Worksheets
    Set rngs = ws.Range("a2", ws.[j1].End(xlDown))
    Set cell = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp)(2, 1)
    rngs.Copy cell
Next
wb.Close
End If
sr = Dir
Loop Until sr = ""
End Sub

MaTch-

Set rngs = ws.Range("a2", ws.[j1].End(xlDown))
Set cell = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp)(2, 1)

换成：
Set rngs = ws.Range("b2", ws.[j1].End(xlDown))
Set cell = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 2).End(xlUp)(2, 1)
另外，你其他表里有空白sheet，应该删了。