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

[µo°Ý] ½Ð±Ð °}¦C/¼Æ²Õ ¦p¦ó¨C5­Ó¤@¦æÅã¥Ü ¥X¨Ó??

[µo°Ý] ½Ð±Ð °}¦C/¼Æ²Õ ¦p¦ó¨C5­Ó¤@¦æÅã¥Ü ¥X¨Ó??

½Ð±Ð

°ÝÃD1 ¦p¦ó¥i¥H¨C5­Ó¤@¦æ  MSGBOX Åã¥Ü¥X¨Ó
°ÝÃD2 ¦p¦óª¾¹D¼Æ²Õ ªº Á`­Ó¼Æ??

²{¦b¥u¯à¤@¦¸¹LÅã¥Ü

ÁÂÁ¦U¦ì

test.PNG (68.66 KB)

test.PNG

¤£¦n·N«ä §ó¥¿ ¨C¤­­Ó¤@¦C Åã¥Ü

TOP

¦^´_ 2# adrian_9832


Sub test()
    lastrow = Range("A1").CurrentRegion.Rows.Count
    For i = 1 To lastrow
        s = s & Cells(i, 1) & IIf(i Mod 5 = 0, vbNewLine, IIf(i = lastrow, "", ","))
    Next i
    MsgBox s
End Sub

TOP

¦^´_ 3# quickfixer

ÁÂÁ§AªºÀ°§U°Ú!!!

¦ý¯à¸Ñ»¡¤@¤U ¨S¥Î¹LIIF ³o¤è¦¡

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

ÁÂÁ±оÇ!!!!!!!!!!!!!!!!!!!!!!

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD