lilytracy

¦^´_ 1# luke

­Y¬d­ºµ§¸ê®Æ¦p¤U

1. Sub Test()
   
2. Dim Txt1 As String, Txt2 As String
   
3. Txt1 = [D3]
   
4. Txt2 = [E3]
   
5.   [D3] = IIf(Left(Txt1, 1) = ";", Mid(Txt1, 2, Len(Txt1) - 1), Txt1)
   
6.   [E3] = IIf(Left(Txt2, 1) = ";", Mid(Txt2, 2, Len(Txt2) - 1), Txt2)
   
7.     Cells.Find(What:=[D3], LookIn:=xlValues).Activate
   
8.      i = 1
   
9.       Do
   
10.        Cells.FindNext(After:=ActiveCell).Activate
    
11.         If Cells(ActiveCell.Row, 1).Value = [D3] And Cells(ActiveCell.Row, 2).Value = [E3] Then
    
12.          Exit Do
    
13.           ElseIf i > 4000 Then
    
14.           MsgBox "¬dµL " + [D3] + [E3] & "¸ê®Æ"
    
15.          Exit Do
    
16.         End If
    
17.       i = i + 1
    
18.     Loop
    
19. End Sub

½Æ»s¥N½X