register313

¦^´_ 1# owen9399

1. Sub xx()
   
2. With Sheets("¥þ³¡¦X­p")
   
3.   .Columns("A:D") = ""
   
4.   Sheets("¤p«¬¤½¥q").Range("A1:D" & Sheets("¤p«¬¤½¥q").[D65536].End(xlUp).Row).Copy .[A1]
   
5.   Sheets("¤j«¬¤½¥q").Range("A2:D" & Sheets("¤j«¬¤½¥q").[D65536].End(xlUp).Row).Copy .[A65536].End(xlUp).Offset(1, 0)
   
6.   .[A1].CurrentRegion.Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
   
7. End With
   
8. End Sub

½Æ»s¥N½X

register313

¦^´_ 4# owen9399

1. Sub ¥þ³¡¤½¥qÁ`¦~³ø_«ö¶s1_Click()
   
2. With Sheets("¥þ³¡¤½¥qÁ`¦~³ø")
   
3.   .Columns("A:J") = ""
   
4.   Sheets("¤p«¬ªÑ¦~³ø").Range("A1:J" & Sheets("¤p«¬ªÑ¦~³ø").[J65536].End(xlUp).Row).Copy
   
5.   .[A1].PasteSpecial xlPasteValues
   
6.   Sheets("¤j«¬ªÑ¦~³ø").Range("A2:J" & Sheets("¤j«¬ªÑ¦~³ø").[J65536].End(xlUp).Row).Copy
   
7.   .[A65536].End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
   
8.   .[A1].CurrentRegion.Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
   
9. End With
   
10. End Sub

½Æ»s¥N½X

register313

¦^´_ 6# owen9399

1. Sub ¥þ³¡¤½¥qÁ`¦~³ø_«ö¶s1_Click()
   
2. Application.ScreenUpdating = False
   
3. With Sheets("¥þ³¡¤½¥qÁ`¦~³ø")
   
4.   .Columns("A:J") = ""
   
5.   Sheets("¤p«¬ªÑ¦~³ø").Range("A1:J" & Sheets("¤p«¬ªÑ¦~³ø").[J65536].End(xlUp).Row).Copy
   
6.   .[A1].PasteSpecial xlPasteValues
   
7.   Sheets("¤j«¬ªÑ¦~³ø").Range("A2:J" & Sheets("¤j«¬ªÑ¦~³ø").[J65536].End(xlUp).Row).Copy
   
8.   .[A65536].End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
   
9.   LR = .UsedRange.Rows.Count
   
10.   For R = LR To 2 Step -1
    
11.     If .Cells(R, 1) = .Cells(1, 1) Or .Cells(R, 1) = O Or Application.CountA(.Rows(R)) = 0 Then
    
12.       .Rows(R).Delete
    
13.     End If
    
14.   Next R
    
15.   .[A1].CurrentRegion.Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
    
16. End With
    
17. Application.ScreenUpdating = True
    
18. End Sub
    

½Æ»s¥N½X