[已解决]怎么把sheet1，sheet3，sheet4的数据依次复制到sheet5中

wine0431

数据量太大，复制粘贴好麻烦，怎么能否把sheet1，sheet3，sheet4的数据依次复制粘贴到sheet5中？

最佳答案

月排行榜 / 总排行榜

327718098

2017-6-6 19:30

wine0431 发表于 2017-6-6 19:12
弱弱地问下，粘贴过来的数字怎么保留原格式？就是原来表格中的是2位小数，粘贴过来也希望是2位小数

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

跳转到最佳答案楼层

327718098

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
是新建一个工作表把其他工作表的数据复制过去把

wine0431

327718098 发表于 2017-6-6 14:16
Sub text()
Dim st As Worksheet
Worksheets.Add after:=Sheets(Sheets.Count)

就是在原文件中增加一个sheet5，把sheet1，sheet3和sheet4的数据都粘过去

327718098

wine0431 发表于 2017-6-6 14:25
就是在原文件中增加一个sheet5，把sheet1，sheet3和sheet4的数据都粘过去

只要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

lxlyhu

下载、安装excel工具插件http://www.excelpx.com/thread-322290-1-1.html

wine0431

lxlyhu 发表于 2017-6-6 15:20
下载、安装excel工具插件http://www.excelpx.com/thread-322290-1-1.html

这个能用宏实现吗？

wine0431

327718098 发表于 2017-6-6 14:52
只要sheet1，sheet3和sheet4，sheet2的数据不用么？sheet2的数据也要复制过去的话就用上面的代码
sheet2 ...

运行不出来啊

wine0431

lxlyhu 发表于 2017-6-6 15:20
下载、安装excel工具插件http://www.excelpx.com/thread-322290-1-1.html

能否传一份到百度网盘？云盘下载不了

327718098

wine0431 发表于 2017-6-6 18:01
运行不出来啊

测试过没有问题，你的提示什么错误

wine0431

327718098 发表于 2017-6-6 19:00
测试过没有问题，你的提示什么错误

运行时错误“424”
调试对象