将excel中多个sheet中的内容复制到一个中

excel中的数据经常要分类放到不同的sheet中，汇总到一个sheet中的时候一个个复制太麻烦，准备一段vba，用的时候直接拷贝进去执行，可大大的提高效率。

Sub 合并数据()
    Application.ScreenUpdating = False
    For j = 1 To Sheets.Count
        If Sheets(j).Name <> ActiveSheet.Name Then
            X = Range("C65536").End(xlUp).Row + 1
            Y = Sheets(j).Range("C65536").End(xlUp).Row
            Sheets(j).Rows("4:" & Y).Copy Cells(X, 1)
        End If
    Next
    Range("B1").Select
    Application.ScreenUpdating = True
    MsgBox "合并完毕！", vbInformation, "提示"
End Sub

其中可能要修改的数据：

1. 第5行、第6行的C65536，C是要复制的表格中必不为空的列，一般是序号列、名称列。
2. 第7行中的4，代表除了表头第一行有效数据的行数。

Good Luck！！