写一段excel宏代码将sheet1的内容和sheet2内容合并成sheet3
时间: 2023-03-07 11:58:30 浏览: 305
Sub MergeSheet()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As WorksheetSet sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
Set sh3 = Worksheets("Sheet3")sh1.Activate
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copysh3.Activate
Range("A1").Select
ActiveSheet.Pastesh2.Activate
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copysh3.Activate
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.PasteEnd Sub答:Sub MergeSheet()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
Set sh3 = Worksheets("Sheet3")
sh1.Activate
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
sh3.Activate
Range("A1").Select
ActiveSheet.Paste
sh2.Activate
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
sh3.Activate
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
End Sub
阅读全文
相关推荐

















