hugh0620

¦^´_ 2# GBKEE

    G¤j~ ¥Lªº¸ê®Æ~ §Ú¦b³B²z¤W¬O¦³¤@¨Ç°ÝÃDªº~
    ¦b¨C­Ó°Ï¶ôªºªÅ±Æ¦C¤¤~ ¬°«DªÅ¥Õ~ ³B²z°_¨ÓÆZ©Çªº~
    §Ú¬O¥Î¤â°Ê¥ý§âªÅ¥Õ¦CDETEL~ ¦A¥Îµ{¦¡½X¨Ó¶]~
    ½Ð§A¦b­×§ï¤ñ¸û²«Kªº¤è¦¡~

1. Private Sub CommandButton1_Click()
   
2. Dim A As Integer
   
3. Dim B As Integer
   
4. Dim D As Integer
   
5. 
   
6. A = InputBox("½Ð¿é¤J¶}©l¦C")   '15   140
   
7. B = InputBox("½Ð¿é¤Jµ²§ô¦C")   '134  256
   
8. 
   
9. If A >= 1 And B >= A Then
   
10.    For Each R In Sheet1.Range("C" & A & ":C" & B)   '¦]CÄæ¦ìªº¸ê®Æ¬O¤å¦r¡A¥ýÂà´«¦¨¼Æ¦r
    
11.        Range("M" & R.Row) = R.Value
    
12.    Next
    
13. C = Application.Max(Sheet1.Range("M:M"))            '§ì¨ú­pºâªº³Ì¤j­È
    
14. Sheet1.Range("M" & A & ":M" & B).ClearContents      '²M°£­n±Æ§Çªº¸ê®Æ°Ï
    
15. 
    
16.    For I = 1 To C
    
17.        For Each R In Sheet1.Range("C" & A & ":C" & B)
    
18.         D = I
    
19.         If R = D Then
    
20.            If A1 = "" Then
    
21.            Sheet1.Range("N" & A) = R.Value
    
22.            J = 0
    
23.            Do Until R.Offset(J + 1, 9) <> ""
    
24.                     Range("P" & A + J) = R.Offset(0 + J, 2)
    
25. 
    
26.                     If R.Offset(J, 8) <> "" Then
    
27.                        Range("V" & A + J) = R.Offset(0 + J, 8)
    
28.                     End If
    
29. 
    
30.                     If R.Offset(J, 9) <> "" Then
    
31.                     Range("W" & A + J) = R.Offset(0 + J, 9)
    
32.                     End If
    
33.                     J = J + 1
    
34.            Loop
    
35.            Else
    
36.            Sheet1.Range("N" & A1) = R.Value
    
37.            J = 0
    
38.            Do Until R.Offset(J, 2) = ""
    
39.                     Range("P" & A1 + J) = R.Offset(0 + J, 2)
    
40. 
    
41.                     If R.Offset(J, 8) <> "" Then
    
42.                        Range("V" & A1 + J) = R.Offset(0 + J, 8)
    
43.                     End If
    
44. 
    
45.                     If R.Offset(J, 9) <> "" Then
    
46.                     Range("W" & A1 + J) = R.Offset(0 + J, 9)
    
47.                     End If
    
48.                     J = J + 1
    
49.            Loop
    
50.            End If
    
51.            A1 = Range("P65536").End(xlUp).Offset(2, 0).Row
    
52.         End If
    
53.        Next
    
54.    Next
    
55. End If
    
56. End Sub

½Æ»s¥N½X

hugh0620

¦^´_ 1# lionliu

   ¦]¬°±zªº¸ê®Æ¦³¤@¨Ç°ÝÃD~
   ©Ò¥H~ §Úªº§@ªk¬O¥ý±NªÅ¥Õ¦Cªº¦a¤è¥ý«öDELETE²M°£¸ê®Æ~
   ¦A¨Ó°õ¦æVBA~
   ¬Ý¬Ýªþ¥óªºµ²ªG¬O¤£¬O§A­nªºµ²ªG~