|
本帖最后由 wine0431 于 2017-6-8 10:20 编辑
将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中最后十几行没有复制,不知道错在哪,或者求高手重新编个宏
不是没复制,而是被覆盖了,把此句代码的“a”改成“b”就好了。
Sheets(4).Range("a" & Sheets(4).Cells(Rows.Count, 1).End(3).Row + 1)
|
|