[已解决]VBA代码修改

yanyupingsheng

题目要求：每隔一行插入两行空行
问题症状：代码只对前三行进行了插入，4行以后都没插入，如何对代码进行修改，问题出在什么地方？
Sub t2()
Dim x As Integer
For x = 2 To Range("a65536").End(xlUp).Row Step 3
Rows(x).Insert
Rows(x + 1).Insert
Next
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-11-9 14:49

1. Sub t2()
   
2. 
   
3.     Dim x As Integer
   
4.     Dim rg As Range
   
5.    
   
6.     Application.ScreenUpdating = False
   
7.     x = Range("a65536").End(xlUp).Row
   
8.     On Error Resume Next
   
9.     Set rg = Range("a1:a" & x).SpecialCells(xlCellTypeBlanks)
   
10.     If Not rg Is Nothing Then
    
11.         Range("a1:a" & x).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
12.     End If
    
13.    
    
14.     For x = Range("a65536").End(xlUp).Row To 2 Step -1
    
15.         Rows(x).Resize(2).Insert
    
16.     Next
    
17.     Application.ScreenUpdating = True
    
18. End Sub

复制代码

改一下，先清除原有空行再加。

跳转到最佳答案楼层

hwc2ycy

要从后往前插。

hwc2ycy

1. Sub t2()
   
2.     Dim x As Integer
   
3.     Application.ScreenUpdating = False
   
4.     For x = Range("a65536").End(xlUp).Row To 2 Step -1
   
5.         Rows(x).Resize(2).Insert
   
6.     Next
   
7.     Application.ScreenUpdating = True
   
8. End Sub

复制代码

hwc2ycy

1. Sub t2()
   
2. 
   
3.     Dim x As Integer
   
4.     Dim rg As Range
   
5.    
   
6.     Application.ScreenUpdating = False
   
7.     x = Range("a65536").End(xlUp).Row
   
8.     On Error Resume Next
   
9.     Set rg = Range("a1:a" & x).SpecialCells(xlCellTypeBlanks)
   
10.     If Not rg Is Nothing Then
    
11.         Range("a1:a" & x).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
12.     End If
    
13.    
    
14.     For x = Range("a65536").End(xlUp).Row To 2 Step -1
    
15.         Rows(x).Resize(2).Insert
    
16.     Next
    
17.     Application.ScreenUpdating = True
    
18. End Sub

复制代码

改一下，先清除原有空行再加。