GBKEE

¦^´_ 1# starry1314
¸Õ¸Õ¬Ý

1. Sub tt()
   
2.     Dim arr(), str As String, brr As String
   
3.     str = Sheets("¤u§@ªí1").[c2].Value
   
4.     Sheets("¤u§@ªí1").[E8] = ""
   
5.     arr = Sheets("data").[a1].CurrentRegion.Rows(2).Value
   
6.     For i = 2 To UBound(arr, 2) Step 2
   
7.             If InStr(arr(1, i), str) = 0 Then
   
8.                 Sheets("¤u§@ªí1").[E8] = arr(1, i - 1)
   
9.                 brr = arr(1, i)
   
10.                 Exit For
    
11.             End If
    
12.     Next
    
13.     If brr = "" Then
    
14.         MsgBox "¬d¤£¨ìµ²ªG"
    
15.     Else
    
16.         MsgBox "³Ì«á¦³" & Sheets("¤u§@ªí1").[E8] & "¬°¡G" & brr
    
17.     End If
    
18. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# starry1314

¥¿¦b§ä«ç»òÅý¥L¥H¡i,¡j°µ°Ï¤À¥u­n¥X²{¨ä¤¤¤@­Ó±ø¥ó ´N¸õ©¹¤U¤@¹Dµæ¦â

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim arr(), str As String, brr() As String, I As Integer
   
4.     Dim S As Variant, E As Integer
   
5.     str = Sheets("¤u§@ªí1").[c2].Value
   
6.     Sheets("¤u§@ªí1").[E8] = ""
   
7.     arr = Sheets("data").[a1].CurrentRegion.Rows(2).Value
   
8.     For I = 2 To UBound(arr, 2) Step 2
   
9.         S = Split(str, ",")
   
10.         ReDim brr(0 To UBound(S))
    
11.         For E = 0 To UBound(S)
    
12.             If InStr(arr(1, I), S(E)) Then brr(E) = "¸T§Ò"
    
13.         Next
    
14.         S = Join(brr, "")
    
15.         If S = "" Then
    
16.             Sheets("¤u§@ªí1").[E8] = arr(1, I - 1)
    
17.             Exit For
    
18.         End If
    
19.     Next
    
20.     With Sheets("¤u§@ªí1").[E8]
    
21.         If .Value = "" Then
    
22.             MsgBox "¬d¤£¨ìµ²ªG"
    
23.         Else
    
24.             MsgBox "³Ì«á¦³ " & .Value & "¬°¡G" & arr(1, I)
    
25.         End If
    
26.     End With
    
27. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# starry1314

1. Option Explicit '±j¨î«Å§i ¨¾¤îÅܼÆKey¿ù¦r,³y¦¨¿ù¦r»~¥H¬°ÅܼÆ
   
2.     Sub Ex()
   
3.         Dim arr(), str As String, brr() As String, I As Integer
   
4.         Dim S As Variant, E As Integer
   
5.         str = Sheets("¤u§@ªí1").[c2].Value 'Ū¨ú¸T§Ò
   
6.         'Sheets("¤u§@ªí1").[E8] = "" '±NÀx¦s®æ²MªÅ
   
7.         arr = Sheets("data").[a1].CurrentRegion.Rows(4).Value 'Ū¨ú¸ê®ÆÅܼÆ-¦C
   
8.         For I = 2 To UBound(arr, 2) Step 2 '¸ê®ÆÅÜ¼Æ ¥H2Äæ°µ¬°¤@­Ó¼Æ¾Ú
   
9.             S = Split(str, ",") '±N¸T§Ò:¥H,°Ï¹j¦h±ø¥ó
   
10.             ReDim brr(0 To UBound(S))
    
11.             'ReDim ³¯­z¦¡ ¦bµ{§Ç¼h¦¸¤¤¥Î¨Ó­«·s°t¸m°ÊºA°}¦CÅܼƪºÀx¦sªÅ¶¡¡C
    
12.             '¼Æ²Õ¤º¤¸¯Àªº¤W­­­È '¦p 5-10 µ¥¦PUBound=10 ,LBound=5 ¤U­­­È
    
13.             For E = 0 To UBound(S) '¨Ì§Ç¾É¤J¼Æ²Õ¤º¤¸¯À
    
14.                 If InStr(arr(1, I), S(E)) Then brr(E) = "¸T§Ò"
    
15.             Next
    
16.             S = Join(brr, "")
    
17.             'Join ¨ç¼Æ ¶Ç¦^¤@­Ó¦r¦ê , ¸Ó¦r¦ê¬O³z¹L³sµ²¬Y­Ó°}¦C¤¤ªº¦h­Ó¤l¦r¦ê¦Ó«Ø¥ßªº
    
18.             If S = "" Then
    
19.                 Sheets("¤u§@ªí1").[E8] = arr(1, I - 1)
    
20.                 Exit For
    
21.             End If
    
22.         Next
    
23.         With Sheets("¤u§@ªí1").[E8]
    
24.             If .Value = "" Then
    
25.                 MsgBox "¬d¤£¨ìµ²ªG"
    
26.             Else
    
27.                 MsgBox "³Ì«á¦³ " & .Value & "¬°¡G" & arr(1, I)
    
28.             End If
    
29.         End With
    
30.     End Sub
    

½Æ»s¥N½X