excel多个工作表合并

新建一个空白表放在第一个位置，将下列代码复制既可，已测试不懂得话联系我21888841 注明合并工作表

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim i, j, k, n As Integern = 1For i = 2 To ThisWorkbook.Sheets.CountFor j = 1 To ThisWorkbook.Sheets(i).UsedRange.Rows.CountFor k = 1 To ThisWorkbook.Sheets(i).UsedRange.Columns.CountThisWorkbook.Sheets(1).Cells(n, k).Value = ThisWorkbook.Sheets(i).Cells(j, k).ValueNext kn = n + 1Next jNext iEnd Sub