Sub text()
Dim st As Worksheet
Worksheets.Add after:=Sheets(Sheets.Count)
Sheet1.Range("1:1").Copy Sheets(5).Range("a1")
For Each st In Worksheets
If st.Name <> Sheets(5).Name Then
st.Range(st.Cells(2, 1), st.Cells(2, 1).End(xlToRight).End(xlDown)).Copy _
Sheets(5).Range("a" & Sheets(5).Cells(Rows.Count, 1).End(3).Row + 1)
End If
Next
End Sub
Sub text()
Dim st As Worksheet
Worksheets.Add after:=Sheets(Sheets.Count)
Sheet1.Range("1:1").Copy Sheets(5).Range("a1")
For Each st In Worksheets
If st.Name <> Sheets(5).Name Then
st.Range(st.Cells(2, 1), st.Cells(2, 1).End(xlToRight).End(xlDown)).Copy
Sheets(5).Range("a" & Sheets(5).Cells(Rows.Count, 1).End(3).Row + 1).PasteSpecial xlPasteValues
End If
Next
End Sub
是新建一个工作表把其他工作表的数据复制过去把
只要sheet1,sheet3和sheet4,sheet2的数据不用么?sheet2的数据也要复制过去的话就用上面的代码
sheet2的数据不用复制的话就把If st.Name <> Sheets(5).Name Then 这句改为
If st.Name <> Sheets(5).Name and st.name<>sheet2.name Then