[¤w¸Ñ¨M][µo°Ý]µ{¦¡Â²¤Æ-°}¦C-VBA ¡A´M§ä¬Y¤¸¯À¬O§_¦s¦b°}¦C¤¤¡C
| ©«¤l254 ¥DÃD6 ºëµØ0 ¿n¤À310 ÂI¦W0  §@·~¨t²ÎW10 ³nÅ骩¥»Excel 2016 ¾\ŪÅv20 ©Ê§O¨k ¨Ó¦Û¥xÆW µù¥U®É¶¡2019-6-16 ³Ì«áµn¿ý2025-6-21 
 | 
                
| ¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-8-12 20:10 ½s¿è 
 ³o¼Ë¦n¹³¤]¥i¥H
 ½Æ»s¥N½XSub ½m²ßÅã¥Ü°}¦C¦ì¸m()
Dim A, B, i, k
 A = Array("¤@", "¤", "¤K")
 B = Array("¤@", "¤G", "¤T", "¥|", "¤", "¤»")
 
    For i = 0 To UBound(B)
        If A(k) = B(i) Then
           MsgBox " Aªº " & A(k) & " ¦b B ªº ²Ä " & i & " Ó"
           If k <= UBound(A) Then k = k + 1
        Else
           MsgBox " B ªº ²Ä " & i & " Ó" & " ¬O " & B(i)
        End If
    Next i
    
End Sub
 | 
 | 
|  | 
|  |  | 
|  |  |