[µo°Ý] µ{¦¡¥u¯à¤@¦¸, ¤£¯à­«ÂЫö¦^ÃD

patrickccs

¥H¤Uµ{¦¡½X, §Ú¬O·Q¦bSheet2§¹¦¨¿z¿ï«á, µM«á§â¸ê®Æ¶K¨ìSheet1¥h, ¦ý§Ú¥u¯à°µ¤@¦¸, ¤£¯à¤@ª½­«ÂЫö, ¬°¤°»ò©O?

Private Sub CommandButton1_Click()
    Range("C3:H2000").Replace "#N/A N/A", ""
   
    Dim Rng As Range, R As Range
    For Each R In Range("A1").CurrentRegion.Rows
        If R.Cells(3) = "" Then If Rng Is Nothing Then Set Rng = R Else Set Rng = Union(Rng, R)
    Next
    Rng.Delete xlUp
   
    Rows(2).Select
    Selection.Delete Shift:=xlUp
   
    Columns(1).Select
    Selection.Delete Shift:=xlUp
   
    Range("A2:G2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.copy
    Sheets("Sheet1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
End Sub

GBKEE

¦^´_ 1# patrickccs
'ª«¥ó.Selectªº¤èªk,ª«¥ó¥²¬O§@¥Î¤¤µøµ¡ªºª«¥ó
½Ð°Ý³oµ{¦¡½X¬O©ñ¦b Sheets("Sheet1")¤u§@ªíª«¥ó¼Ò²Õ¶Ü?

1. Private Sub CommandButton1_Click()
   
2.     Range("A2:G2").Select
   
3.     Range(Selection, Selection.End(xlDown)).Select
   
4.     Selection.Copy
   
5.     Sheets("Sheet2").Select   '¦³§ïÅܧ@¥Î¤¤ªº¤u§@ªí¶Ü?
   
6.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
7.         :=False, Transpose:=False
   
8. '***********************************
   
9.     Me.Activate  '¦^¨ì³o¤u§@ªíª«¥ó¼Ò²Õªº¤u§@ªí
   
10. '***********************************
    
11.    'Rows(2).Select
    
12.     '³oRows(2)¬O¤u§@ªíª«¥ó¼Ò²Õ¤u§@ªíªºª«¥ó
    
13.     'ª«¥ó.Select: ³oª«¥ó¥²¬O§@¥Î¤¤µøµ¡ªºª«¥ó

½Æ»s¥N½X