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

wine0431

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

嗯，没有问题，试过了，但是数据格式不对，希望粘过来的格式，就是小数点的保留位数和之前一样

wine0431

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

弱弱地问下，粘贴过来的数字怎么保留原格式？就是原来表格中的是2位小数，粘贴过来也希望是2位小数

327718098

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

wine0431

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 And st.Name <> Sheet2.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
谢谢啦

lxlyhu

只能在32位的excel中安装和使用，兼容excel2003/2007/2010/2013/2016/365/WPS;
可以在32位或64位的winXP、win7、win8、win10上安装

wine0431

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

我现在想把sheet1和sheet3中的数据复制到sheet4中，代码如下Sub text()
Dim st As Worksheet
Worksheets.Add after:=Sheets(Sheets.Count)
Sheet1.Range("1:1").Copy Sheets(4).Range("a1")
For Each st In Worksheets
If st.Name <> Sheets(4).Name And st.Name <> Sheet2.Name Then
st.Range(st.Cells(2, 1), st.Cells(2, 1).End(xlToRight).End(xlDown)).Copy _
Sheets(4).Range("a" & Sheets(4).Cells(Rows.Count, 1).End(3).Row + 1)
End If
Next
End Sub


结果sheet1中最后几行不能复制过去，不知道怎么改见http://www.excelpx.com/thread-430917-1-1.html

lxmlb

从下列网址中下载“  多簿多表合并Mergebooks.dll   ”工具，该excel插件工具中有一个“多表合并”功能，可以完成以上要求 ，具体网址：http://www.excelpx.com/thread-322290-1-1.html