两个表首尾合并在一起－－求助

garethemmanuel

我将2个表首尾合并连到一起，为什么第二个表才复制了2行过来？有高手指点一下么？多谢！（将“合并”及“原始”两个表合并到“新单”）
Sub 新单()
'
Dim Sht As Worksheet, arr, Myr&, Arr1
Worksheets("新单").Activate
Cells.ClearContents
For Each Sht In Sheets
If Sht.Name <> "新单" Then
     If Sht.Name = "合并" Then
           arr = Sheets("原始").[a1].CurrentRegion
            [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
       Else
            Myr = Sheets("原始").[o65536].End(xlUp).row
            Arr1 = Sheets("原始").Range("a2:i" & Myr)
           Cells(UBound(arr) + 1, 1).Resize(UBound(Arr1), UBound(Arr1, 2)) = Sheets("原始").Range("a2:i" & Myr).Value
        End If
    End If
Next
End Sub

LangQueS

建议楼主压缩上传简明扼要的 Excel 问题附件并加以说明或做出模拟结果，以便大家了解、测试和解答。(编辑已发贴即可补充上传附件)
  
Excel Home论坛学习及使用完全攻略(新人必读)    http://club.excelhome.net/thread-449518-1-1.html