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

Àx¦s®æ¤º¿ï¨ú"-"¤§«e¤Î¤§«áªº¦r²´¡C

Àx¦s®æ¤º¿ï¨ú"-"¤§«e¤Î¤§«áªº¦r²´¡C

A1 Àx»W®æ¤º:
suiji008ker-suiji5656----¸j©wÂI¼Æ¡G¢¯¦W¦r¡G¦Ñ¦ò·Ýªí¥Ü¾§¦n«Ó µ¥¯Å¡G¢²¢¯¾Ô°«¤O¡G5,727 ¬q¦ì¡G»ÈµP¢×¢ä

¦U¦ì¤j¤j§A­Ì¦n¡A§Ú·Q¦bA1¤¤¡A¿ï¨úsuiji008ker ªº¦r ¶K¨ì B1¤¤ ¡A¤§«á·Q¿ï¨úsuiji5656ªº¦r¶K¦bC1 ¤¤¡C
¥i¥H§P©w¬O"-" «e­±ªº¦r²´ ¤Î"----"«eªº¦r²´¡C

§Ú¥Î¤FFOR NEXT ¦ýµ²ªG¨«¤£³q¡A¦b³o­Ó¹Lµ{¤¤§Ú³]©w¤F¶W¹L3­ÓÅܼƥh°µFOR NEXT ..µ²ªG.....

§Æ±æ¤j¤j¥i¥H¥Î¤@­Ó¤ñ¸û²©öªº¤èªk±Ð¤@±Ð¤p§Ì~·P¿E¸U¤À

¦^´_ 1# tc1701

Sub ex()
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(i, 2).Resize(, 2) = Split(Cells(i, 1), "-")
    Next
End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 2# ML089


    Á¤j¤j¡A
·Q°Ý¤@¤U¬°¤°»ò­n¥Î¨ìRESIZE? ¦ÓRESIZE (,2) ¬O¤°»ò·N«ä?

TOP

RESIZE (,2) ¬O¤°»ò·N«ä?
RESIZE (,2)´N¬O½d³ò¼W¥[¬°2Äæ

Cells(i, 2).Resize(, 2) ´N¬O RANGE(Cells(i, 2), Cells(i, 3))
Cells(i, 2).Resize(, 3) ´N¬O RANGE(Cells(i, 2), Cells(i, 4))
Cells(i, 2).Resize(, 4) ´N¬O RANGE(Cells(i, 2), Cells(i, 5))

´å¼Ð²¾¦Ü Resize «öF1 ´N¯à¬Ý¨ì»¡©ú
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 4# ML089


    ©ú¥Õ¤F~ÁÂÁ§A~§Ú·|¦h¬Ý¬Ý»¡©ú¦Aµo°Ý!!¤S¤W¤F¤@½Ò°ó~·P®¦

TOP

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