求多表格合并

she8088

想把几个数据表合并，但是命令哪里错了，合并后少数据。。。。求大神帮忙

dsmch

1. Sub 合并工作表()
   
2. Application.ScreenUpdating = False
   
3. x = 1
   
4. For j = 2 To Sheets.Count
   
5.    If Sheets(j).Name <> ActiveSheet.Name Then
   
6.         s = IIf(j = 2, 0, 2)
   
7.         Sheets(j).UsedRange.Offset(s).Copy Cells(x, 1)
   
8.         x = Range("A65536").End(xlUp).Row + 1
   
9.     End If
   
10. Next
    
11. End Sub

复制代码

she8088

非常感谢2位大神~~~谢谢