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

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

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

dear  all  ¤j¤j -
1.  ¦p¹Ï¤@µ{¦¡·|±N²Å¦X±ø¥ó¤§sheet1¸ê®Æ¶Ç¦Ü sheet2¤§  A2 A3 A4 ..............
2. »Ý¨D¬°  ±N²Å¦X±ø¥ó¤§sheet1¸ê®Æ¶Ç¦Ü sheet2¤§  A2 A6 A10 ..............¸õ4¦C©ñ¸m¸ê®Æ
2.1½Ð°Ýµ{¦¡¦p¦ó­×§ï.·Ð¤£§[½ç±Ð thanks*10000
¹Ï¤@
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 + 1
  End If
Next
End Sub
ù

¥»©«³Ì«á¥Ñ 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

DEAR n7822123  ¤j¤j
¤@»yÅå¿ô¹Ú¤¤¤H.·PÁ±z¤§±Ð¾É  THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD