求一段关于EXCEL复制的宏代码怎么写...

来源：百度知道 编辑：UC知道 时间：2024/05/21 09:47:59
1.复制SHEET1 的A列 B列的所有内容到SHEET3的A列 B列
2.复制SHEET2 的A列 B列的所有内容到SHEET3的A列 B列之后

达到SHEET3的A列和B列包含了SHEET1和SHEET2 A列和B列的所有内容.

这个宏应该怎么写..高人帮忙

拜谢先 .

Sub aaaa()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Sheets("sheet1").Select
Range("a:b").Select
Selection.Copy
Sheets("sheet3").Select
Range("a:b").Select
ActiveSheet.Paste
a = WorksheetFunction.CountA(Range("a:a"))
b = WorksheetFunction.CountA(Range("b:b"))
Sheets("sheet2").Select
c = WorksheetFunction.CountA(Range("a:a"))
d = WorksheetFunction.CountA(Range("b:b"))
Range("a1:" & "a" & c).Select
Selection.Copy
Sheets("sheet3").Select
Range("a" & a + 1).Select
ActiveSheet.Paste
Sheets("sheet2").Select
Range("b1:" & "b" & d).Select
Selection.Copy
Sheets("sheet3").Select
Range("b" & b + 1).Select
ActiveSheet.Paste
End Sub