ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¸ê®Æ®w§ì¨ú«á¸õ¦C©ñ¸ê®Æ°ÝÃD½Ð±Ð

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-10-3 00:16 ½s¿è

¦^´_ 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.......
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD