[已解决]怎样才能隔行插入空行

x168168

最佳答案

月排行榜 / 总排行榜

371

2012-1-13 09:46

{:912:}
请看动画是不是楼主要的效果？如果是请给个最佳哈。

跳转到最佳答案楼层

zjcat35

1. Sub text()
   
2. Application.ScreenUpdating = False
   
3. Application.Calculation = xlManual
   
4. Dim i As Integer
   
5. For i = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
   
6. Sheet1.Range("A" & i).EntireRow.Resize(11).Insert
   
7. Next
   
8. Application.Calculation = xlAutomatic
   
9. Application.ScreenUpdating = True
   
10. End Sub

复制代码

业余爱好者

其实，单从插入空行的办法来说方法有不少

如果要插入标题行，方法也会有许多的

371

{:912:}
请看动画是不是楼主要的效果？如果是请给个最佳哈。

sunjing-zxl

1. Sub aa()
   
2.     Dim arr, Ro As Long, Co As Long
   
3.     Dim arr1
   
4.     Dim i As Long, j As Long
   
5.     Ro = [A65536].End(xlUp).Row
   
6.     Co = Range("A1").End(xlToRight).Column
   
7.     arr = Range(Cells(1, 1), Cells(Ro, Co))
   
8.     ReDim arr1(1 To (UBound(arr) - 1) * 2, 1 To UBound(arr, 2))
   
9.     For i = 2 To UBound(arr)
   
10.         For j = 1 To UBound(arr, 2)
    
11.             arr1((i - 1) * 2, j) = arr(i, j)
    
12.             arr1((i - 1) * 2 - 1, j) = arr(1, j)
    
13.         Next j
    
14.     Next i
    
15.     Sheets("sheet2").Range("A1").Resize(UBound(arr1), UBound(arr1, 2)) = arr1
    
16. End Sub

复制代码

附件：
插入-sunjing.rar (9.18 KB, 下载次数: 4)

2012-1-13 11:54 上传

点击文件名下载附件

x168168

业余爱好者 发表于 2012-1-12 21:58
其实，单从插入空行的办法来说方法有不少

如果要插入标题行，方法也会有许多的

版主给一个很的方法，我在此先谢谢了。

x168168

谢谢了，我就是不太懂哟。

x168168

zjcat35 发表于 2012-1-12 21:41

谢谢了，代码就是好样的，可我不知怎么写。

x168168

371 发表于 2012-1-13 09:46
请看动画是不是楼主要的效果？如果是请给个最佳哈。

就是我要的那种效果，挺好的。谢谢！

sctcp

学习一下。。。。