Question

如何把Excel几张表的数据合成一张表

几张表是不同的日期，不同的内容，表头一样，如何可以把几天的数据合在一张表里？
（有一列是日期，内容按日期进行排序最好）
如果方法是粘贴的话就不用说了
表头样式





Answer 1

打开第一个表，右击sheet标签，查看代码，把下面代码贴进去，然后按F5。如果结果是你要的再把代码删掉正常保存表格。

Sub hebing()
Dim sht As Worksheet, a As Integer, b As Integer, rng As Range
For Each sht In Worksheets
If sht.Name <> ActiveSheet.Name Then
Set rng = Range("a1").End(xlDown).Offset(1, 0)
a = sht.Range("a1").CurrentRegion.Rows.Count
b = sht.Range("a1").CurrentRegion.Columns.Count
sht.Range("a2").Resize(a - 1, b).Copy rng
End If
Next
Range("a1").CurrentRegion.Sort key1:="日期", Header:=xlYes
End Sub

Answer 2

Sub Combine()

Dim J As Integer

On Error Resume Next

Sheets(1).Select

Worksheets.Add

Sheets(1).Name = "Combined"

Sheets(2).Activate

Range("A1").EntireRow.Select

Selection.Copy Destination:=Sheets(1).Range("A1")

For J = 2 To Sheets.Count

Sheets(J).Activate

Range("A1").Select

Selection.CurrentRegion.Select

Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select

Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)

Next

End Sub

 

你可以使用这个code，然后会得到这样一个结果如图所示。

 

你可以试一下。

Answer 3

tehshtsrthsjsdjsrtheha