Hsieh

¦^´_ 3# 518587

1. Sub ex()
   
2. r = 2: k = 0
   
3. Do Until Cells(r, 2) = ""  'BÄ欰ªÅ¥Õ®É°h¥X°j°é
   
4. Do Until Cells(r, 2) < 10 Or Cells(r, 2) > 11  '<10©Î>11(¤£¤¶©ó10~11¤§¶¡)°h¥X°j°é
   
5.    k = k + 1  '­p¼Æ
   
6.    r = r + 1
   
7. Loop
   
8. If k > 3 Then
   
9.    Cells(r, 2).Offset(-k).Resize(k, 1) = 0  '±N¤º®e§ï¬°0
   
10. End If
    
11. r = r + 1: k = 0  '¦C¦ì¥[1¡A­p¼ÆÂk¹s
    
12. Loop
    
13. End Sub

½Æ»s¥N½X