GBKEE

¦^´_ 4# Baracuda

1. Sub Ex()
   
2.     A = Array("¤@", "¤­", "¤K")
   
3.     b = Array("¤@", "¤G", "¤T", "¥|", "¤­", "¤»")
   
4.     For Each E In A
   
5.         M = Application.Match(E, b, 0)
   
6.         MsgBox E & IIf(IsNumeric(M), "¦s¦b©ó ", " ¤£¦s¦b©ó ") & Join(b, ",")
   
7.     Next
   
8. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# Baracuda
°j°é  FOR EACH E  IN ª«¥ó    Eªº«¬ºA¬OVariant  ©Î  Object
¦p  ª«¥ó¬O Range ½d³ò             Eªº«¬ºA¥i³]¬° Range
M = Application.Match(E, b, 0)  ¶Ç¦^ ¼Æ¦r ©Î #NA
M ªº«¬ºA ¬O  Variant

GBKEE

6¼Ó °Ý E ³]¦¨ String ¤£·|work¡C
³o¬O«Å§i «¬ºAªº°ÝÃD

GBKEE

¦^´_ 12# Baracuda
­n«ö¤U ¦p¹Ïªº¥N½X ±Nµ{¦¡½X¶K¤W «á«ö´£¥æ

¤U¸ü (63.55 KB)

2011-4-6 18:25

GBKEE

¦^´_ 13# greetingsfromtw

1. '°Q½×°Ïºô§}:http://forum.twbts.com/index.php
   
2. Option Explicit
   
3. Sub Ex()
   
4.     Dim M As Variant, A(), B()
   
5.     A = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)  '¤Gºû°}¦C
   
6.     B = Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row) '¤Gºû°}¦C
   
7.     B = Application.WorksheetFunction.Transpose(B)                'Âà¦Ü¬°¤@ºû°}¦C
   
8.     For Each E In A
   
9.         M = Application.Match(E, B, 0)
   
10.         MsgBox E & IIf(IsNumeric(M), "¦s¦b©ó ", " ¤£¦s¦b©ó ") & Join(B, ",")
    
11.         'Join ¨ç¼Æ ¶Ç¦^¤@­Ó¦r¦ê¡A¸Ó¦r¦ê¬O³z¹L³sµ²¬Y­Ó°}¦C¤¤ªº¦h­Ó¤l¦r¦ê¦Ó«Ø¥ßªº¡C
    
12.         '******** ¬Y­Ó°}¦C ,¥²¶·¬O¤@ºû°}¦C********************
    
13.     Next
    
14. End Sub

½Æ»s¥N½X