GBKEE

¦^´_ 1# 518587

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim AR, i As Integer, ii As Integer, X As Integer
   
4.     AR = Application.WorksheetFunction.Transpose([A1:A15])
   
5.     For i = 1 To UBound(AR)
   
6.         If AR(i) >= 10 And AR(i) <= 11 Then
   
7.             X = X + 1
   
8.         Else
   
9.             If X >= 3 Then
   
10.                 For ii = X To 1 Step -1
    
11.                     AR(i - ii) = 0
    
12.                 Next
    
13.             End If
    
14.             X = 0
    
15.         End If
    
16.     Next
    
17.     [b1:b15] = Application.WorksheetFunction.Transpose(AR)
    
18.     'Åã¥Ü¦bBÄæ
    
19. End Sub

½Æ»s¥N½X