imingho

回復 1# afu9240
您原本程式碼的if判斷在加上一個Or Sheets("工作表4").Cells(i, 2) = Sheets("工作表1").Cells(3, 6) 就會自動覆蓋

1. Sub EX()
   
2. Dim i As Integer
   
3. Dim y As Integer
   
4. 
   
5. 
   
6. i = 2
   
7. 
   
8.    Do
   
9.     If Sheets("工作表4").Cells(i, 1) = "" Or Sheets("工作表4").Cells(i, 2) = Sheets("工作表1").Cells(3, 6) Then
   
10.         Exit Do
    
11.     End If
    
12.         i = i + 1
    
13.     Loop
    
14.     Sheets("工作表4").Cells(i, 1) = Sheets("工作表1").Cells(3, 2)
    
15.     Sheets("工作表4").Cells(i, 2) = Sheets("工作表1").Cells(3, 6)
    
16.     Sheets("工作表4").Cells(i, 3) = Sheets("工作表1").Cells(3, 4)
    
17.     Sheets("工作表4").Cells(i, 4) = Sheets("工作表1").Cells(7, 3)
    
18.     Sheets("工作表4").Cells(i, 5) = Sheets("工作表1").Cells(8, 3)
    
19.     Sheets("工作表4").Cells(i, 6) = Sheets("工作表1").Cells(9, 3)
    
20.     Sheets("工作表4").Cells(i, 7) = Sheets("工作表1").Cells(10, 3)
    
21.    
    
22. 
    
23.    If Sheets("工作表4").Cells(i, 7) <= 59 Then
    
24.       Sheets("工作表4").Cells(i, 8) = "丁"
    
25.     End If
    
26.    If Sheets("工作表4").Cells(i, 7) >= 60 Then
    
27.        Sheets("工作表4").Cells(i, 8) = "丙"
    
28.     End If
    
29.     If Sheets("工作表4").Cells(i, 7) >= 70 Then
    
30.          Sheets("工作表4").Cells(i, 8) = "乙"
    
31.         End If
    
32.     If Sheets("工作表4").Cells(i, 7) >= 80 Then
    
33.          Sheets("工作表4").Cells(i, 8) = "甲"
    
34.         End If
    
35.    
    
36.     If Sheets("工作表4").Cells(i, 7) >= 90 Then
    
37.        Sheets("工作表4").Cells(i, 8) = "優"
    
38.     End If
    
39.    
    
40.    
    
41. End Sub

複製代碼

afu9240

回復 11# imingho

感謝i大回復!!!thanks*20000