GBKEE

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

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3.     Dim a As Integer, i As Integer
   
4.     Dim b As Integer
   
5.     Dim c As Variant
   
6.     Dim d As Variant
   
7.     Dim E As Variant
   
8.     Dim WB As Workbook, IA As Integer, IB As Integer, IC As Integer
   
9.     IA = 7000
   
10.     IB = 3
    
11.     IC = 10
    
12.     Set WB = Workbooks.Open("d:\test.xls")  '¶}±Ò¬¡­¶Ã¯: «È¤á¤u§@ªí©Ò¦bªº¬¡­¶Ã¯
    
13.     Do
    
14.         If WB.Sheets("»s³y³æ").Range("E" & IB) <> "" Then
    
15.             IB = IB + 1
    
16.         End If
    
17.     Loop While WB.Sheets("»s³y³æ").Range("E" & IB) <> ""
    
18. AGO:
    
19.     IC = IC + 1
    
20.     Do
    
21.         d = WB.Sheets("»s³y³æ").Range("D" & IB)
    
22.         Set c = WB.Sheets("«È¤á").Range("B11:B" & IC).Find(What:=d, LookIn:=xlFormulas, _
    
23.          LookAt:=1, SearchOrder:=2, SearchDirection:=xlNext, _
    
24.          MatchCase:=False, MatchByte:=False, SearchFormat:=True)
    
25.         If IC = IA Then
    
26.             WB.Sheets("»s³y³æ").Range("E" & IB) = "¥¼©R¦W"
    
27.             GoTo STAR
    
28.         End If
    
29.         If c Is Nothing Then
    
30.             GoTo AGO
    
31.         Else
    
32.         '    IA = IC - 1
    
33.             WB.Sheets("»s³y³æ").Range("E" & IB) = Sheets("«È¤á").Range("H" & IC)
    
34.         End If
    
35. STAR:
    
36.         IB = IB + 1
    
37.         IC = 11
    
38.     Loop While Sheets("»s³y³æ").Range("D" & IB) <> ""
    
39. End Sub

½Æ»s¥N½X