GBKEE

¦^´_ 4# sheau-lan
DÄæ ³W®æ¦³ÅÜ°Ê, HÄæ ³W®æ-A  ¿é¤J ¥~²°¼ÐÅÒ

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim W As Variant, Ar As Variant, i As Integer
   
4.     With Target.Cells(1)
   
5.         W = Split(.Cells, "-")
   
6.         If .Column = 4 And UBound(W) >= -1 Then
   
7.             Application.EnableEvents = False
   
8.             Ar = Application.Transpose(Range("H3", Range("H" & Rows.Count).End(xlUp)))
   
9.             Ar = Filter(Ar, W(0) & "-")
   
10.             i = 65
    
11.             Do While UBound(Filter(Ar, W(0) & "-" & Chr(i))) >= 3
    
12.                 i = i + 1
    
13.             Loop
    
14.             .Cells.Offset(, 4) = W(0) & "-" & Chr(i)
    
15.             Application.EnableEvents = True
    
16.         End If
    
17.     End With
    
18. End Sub

½Æ»s¥N½X