excel多表合一解决办法(2种办法)(国外英文资料).docVIP

excel多表合一解决办法(2种办法)(国外英文资料) Create a table before the first table in the merged workbook file. The name is custom and can be a summary table, Click the VB Editor under the macro in the tools menu, and then click the middle running macro button, Enter a macro name and click the Create button on the right, You will then enter the following statement in the code box, close the code box, and run the macro. Sub summary () Sheets (summary table).Select assumes that the table name that stores the summary results is called a summary table, and if not, make the appropriate changes For, Each, s, In, ThisWorkbook.Worksheets With s If.Name summary Then table name changes. .UsedRange.Offset (1, 0),.Copy, [A65536].End (xlUp),.Offset (1, 0) End If End With Next End Sub In the absence of a new table, in the first table of the workbook file to be merged, the VB Editor under the macro in the tools menu, Then click the running macro button in the middle, enter a macro name, and point to the creation button on the right, You will then enter the following statement in the code box, close the code box, and run the macro. In the first table of the workbook file to be merged, click the macro editor under the tools menu VB, Then click the running macro button in the middle, enter a macro name, point to the creation button on the right, and then copy the second sentence to second words in the code box, close the code box, and run the macro. Sub summary data () Sheets.Add With ActiveSheet .Name = summary table Format (Now, hhmmss) For, Each, s, In, ThisWorkbook.Sheets S.UsedRange.Copy.Cells (.UsedRange.Rows.Count + 1, 1) Next End With End Sub The above is the success code. Sub merge () Dim i% Sheets (1).UsedRange.Copy [a1] For I = 1, To, Sheets.Count If Sheets (I).Name Me.Name Then Sheets (I),.UsedRange.Offset (2, 0).Copy [a65536].End (xlUp).Offset (1, 0) Next I End Sub Slightly, the workbook automatically merges. A little bit more, workbook records are automatically merged. The code is in