[已解决]做了个合并。怎么点了没反应。。错在哪？

tzjx200521

• Sub 合并()
  Dim arr(), ii&, x&, sh As Worksheet
• For Each sh In Worksheets
•     If sh.Name <> "年级名次" Then
         ii = sh.Range("a65536").End(3).Row
        ReDim arr(1 To ii, 1 To 9)
        arr = sh.Range("a3:i" & ii)
  Worksheets("年级名次").Range("a" & Worksheets("年级名次").Range("a65536").End(3).Row).Offset(1, 0).Resize(ii - 3, 9) = arr
  Erase arr
• End If
• Next sh
• End Sub
  

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-1-25 23:52

msgbox Worksheets("年级名次").Range("a" & Worksheets("年级名次").Range("a65536").End(3).Row).Offset(1, 0).Resize(ii - 3, 9).address
你看看输出到哪了，

跳转到最佳答案楼层

hwc2ycy

msgbox Worksheets("年级名次").Range("a" & Worksheets("年级名次").Range("a65536").End(3).Row).Offset(1, 0).Resize(ii - 3, 9).address
你看看输出到哪了，

tzjx200521

   怎么会这样啊   

tzjx200521

跟老师又学了一招。。。    谢谢hwc2ycy