[µ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