n7822123

¦^´_ 1# rouber590324


¨SÀÉ®×.....¨S¹Ï¤ù...........
¤j·§¬ÝªºÀ´§Aªº·N«ä

Sub robert()
Sheet2.[A1:G65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet2.[A65536].End(xlUp).Row
For M = 5 To X
  If Not (Sheet1.Cells(M, 5) = "" Or Sheet1.Cells(M, 5) = " ") Then
    Sheet2.Cells(Y + 1, 1) = Sheet1.Cells(M, 1)
    Y = Y + 4   '¸õ¥|¦C
  End If
Next
End Sub

¿n¤ÀÁȦnºC.......