ªð¦^¦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

¤£¦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

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD