[已解决]请用VBN帮忙解决，把sheet2内容复制到sheet1内

一成不变变

把sheet2内容复制到sheet1第一行内，如果sheet1单元格有内容，，那么内容下移，复制完成后如sheet3样式，请帮忙，谢谢  

最佳答案

月排行榜 / 总排行榜

Excel学徒123

2015-4-26 14:30

1. Sub test()
   
2.     Dim arr
   
3.     Dim Irow As Integer
   
4.     arr = Sheets("Sheet2").Range("a1").CurrentRegion
   
5.     For Irow = 1 To UBound(arr)
   
6.         Sheets("Sheet1").Range("a2").EntireRow.Insert
   
7.     Next
   
8.     Sheets("Sheet1").Range("a2").Resize(UBound(arr), UBound(arr, 2)) = arr
   
9.     Application.Intersect(Sheets("Sheet1").UsedRange, Sheets("Sheet1").Range("a:a")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

Excel学徒123

1. Sub test()
   
2.     Dim arr
   
3.     Dim Irow As Integer
   
4.     arr = Sheets("Sheet2").Range("a1").CurrentRegion
   
5.     For Irow = 1 To UBound(arr)
   
6.         Sheets("Sheet1").Range("a2").EntireRow.Insert
   
7.     Next
   
8.     Sheets("Sheet1").Range("a2").Resize(UBound(arr), UBound(arr, 2)) = arr
   
9.     Application.Intersect(Sheets("Sheet1").UsedRange, Sheets("Sheet1").Range("a:a")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
10. End Sub
    

复制代码

一成不变变

正在学习VBN,可否注释一下，

Excel学徒123

一成不变变 发表于 2015-4-26 16:13
正在学习VBN,可否注释一下，

可以，等下

Excel学徒123

1. Sub test()
   
2.     Dim arr
   
3.     Dim Irow As Integer
   
4.     arr = Sheets("Sheet2").Range("a1").CurrentRegion              '将Sheet2中的数据给数组arr赋值
   
5.     For Irow = 1 To UBound(arr)                        '循环，终值为数组的上届
   
6.         Sheets("Sheet1").Range("a2").EntireRow.Insert         '插入空行，Sheet2中有多少行，Sheet1就插入多少行
   
7.     Next
   
8.     Sheets("Sheet1").Range("a2").Resize(UBound(arr), UBound(arr, 2)) = arr           '将数组的值写入单元格
   
9.     Application.Intersect(Sheets("Sheet1").UsedRange, Sheets("Sheet1").Range("a:a")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete          '删除多余的空行
   
10. End Sub
    

复制代码

一成不变变

谢谢，非常感谢