想衣老师帮忙增加一个判断语句。

falcon9999

本人将工作表一中的数据，简单的做了一个宏，但是不懂增加判断语句 。想请老师帮助。A列少于三个相同的编号，也就是只有两个的，在下方增加一行空白。

grf1973

简化一点

1. Sub grf()
   
2.     Dim InsertRows As Range
   
3.     rmax = [a65536].End(3).Row
   
4.     Set InsertRows = Rows(rmax + 1)
   
5.     For i = 1 To rmax - 1
   
6.         If Cells(i, 1) <> Cells(i + 1, 1) Then
   
7.             If k < 2 Then Set InsertRows = Union(InsertRows, Rows(i + 1))
   
8.             k = 0
   
9.         Else
   
10.             k = k + 1
    
11.         End If
    
12.     Next
    
13.     InsertRows.Insert
    
14. End Sub

复制代码

grf1973

1. Sub grf()
   
2.     s = ""
   
3.     For i = 1 To [a65536].End(3).Row - 1
   
4.         If Cells(i, 1) <> Cells(i + 1, 1) Then
   
5.             If k < 2 Then s = s & "," & i + 1
   
6.             k = 0
   
7.         Else
   
8.             k = k + 1
   
9.         End If
   
10.     Next
    
11.     If Len(s) = 0 Then Exit Sub
    
12.     xrr = Split(s, ",")
    
13.     For k = UBound(xrr) To 1 Step -1
    
14.         Rows(xrr(k)).Insert
    
15.     Next
    
16. End Sub
    

复制代码