强烈建议增加“合并工作表”功能

xialin56

易用宝现有“合并工作簿”功能，但没有“合并工作表”功能，建议增加这一非常实用的功能。
另外，为了实现合并工作表这一功能，我尝试用VBA代码来实现；代码如下：

1. Sub 合并当前工作簿下的所有工作表()
   
2. Application.ScreenUpdating = False
   
3. x = Range("A:A").End(xlUp).Row + 1
   
4. For j = 1 To Sheets.Count
   
5.    If Sheets(j).Name <> ActiveSheet.Name Then
   
6.        Sheets(j).UsedRange.Copy Cells(x, 1)
   
7.        x = x + Sheets(j).UsedRange.Rows.Count
   
8.    End If
   
9. Next
   
10. Range("B1").Select
    
11. Application.ScreenUpdating = True
    
12. MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
    
13. End Sub

复制代码

目前已经基本达到预期效果，但仍然存在小问题：
合并后的工作表总行数增加了100行（原10个工作表共有102671行，合并后有102771行，79列）。
烦请各位大神看看问题出在哪了？