[µo°Ý] ·í¨Ó·½³Q§R°£®É¡A«hµ²ªG¤]·|¦Û°Ê§R°£¡A·íµM¦pªG¨Ó·½¦³·s¼W®É¡A¨äµ²ªG¤]·|¦Û°Ê·s¼W¡C

s7659109

·í¨Ó·½ªº¥Ò6¡B¥Ò15¡B¥Ò20»P¥Ò26³Q§R°£®É¡A«hµ²ªG¤]·|¦Û°Ê§R°£¡A·íµM¦pªG¨Ó·½¦³·s¼W®É¡A¨äµ²ªG¤]·|¦Û°Ê·s¼W¡C

s7659109

¸É¤WªþÀÉ¡C

yen956

¦^´_ 2# s7659109
¸Õ¸Õ¬Ý:
   

1. Option Explicit            '±j¨î«Å§iÅܼÆ
   
2. '§R°£
   
3. Private Sub CommandButton1_Click()
   
4.     Dim sh1, sh2 As Worksheet
   
5.     Set sh1 = Sheets("¨Ó·½")
   
6.     Set sh2 = Sheets("µ²ªG")
   
7.    
   
8.     sh2.[H1] = sh1.[H1]
   
9.     sh1.[I1] = "=MATCH(H1,A:A,0)"
   
10.     sh2.[I1] = "=MATCH(H1,A:A,0)"
    
11.    
    
12.     '§R°£"¨Ó·½"
    
13.     If Application.IsNumber(sh1.[I1]) Then
    
14.         sh1.Rows(sh1.[I1]).Delete
    
15.     End If
    
16.    
    
17.     '§R°£"µ²ªG"
    
18.     If Application.IsNumber(sh2.[I1]) Then
    
19.         sh2.Rows(sh2.[I1]).Delete
    
20.     End If
    
21. 
    
22. End Sub
    
23. '
    
24. '·s¼W¤@µ§
    
25. Private Sub CommandButton2_Click()
    
26.     Dim sh1, sh2 As Worksheet
    
27.     Dim lastRow1, lastRow2 As Integer
    
28.     Set sh1 = Sheets("¨Ó·½")
    
29.     Set sh2 = Sheets("µ²ªG")
    
30.    
    
31.     lastRow1 = sh1.[A65536].End(xlUp).Row    '¨ú±o "¨Ó·½"ÄæA³Ì¤U­±«DªÅ¥Õ¦C ªº¦C¸¹
    
32.     lastRow2 = sh2.[A65536].End(xlUp).Row + 1    '¨ú±o"µ²ªG"ÄæA³Ì¤U­±«DªÅ¥Õ¦C ªº¤U¤@¦Cªº¦C¸¹
    
33.    
    
34.     '±N"¨Ó·½"ªº·s¸ê®Æ½Æ»s¨ì"µ²ªG"
    
35.     sh1.Cells(lastRow1, 1).Resize(1, 3).Copy sh2.Cells(lastRow2, 1)
    
36. End Sub

½Æ»s¥N½X

·í¨Ó·½³Q§R°£®É.xls
http://www.mediafire.com/download/2krzi85li7i3npi/%E7%95%B6%E4%BE%86%E6%BA%90%E8%A2%AB%E5%88%AA%E9%99%A4%E6%99%82.7z