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

[µo°Ý] ¸ê®Æ­åªR¦³¿ìªk§ä¥X´«¦æ¸ê®Æ¶Ü

¦^´_ 7# blue2263
  1. Option Explicit
  2. Sub EX()
  3.     Dim Str As String, Ar As Variant, i As Integer
  4.     Str = "aaa" & Chr(10) & "bbbbb" & Chr(10) & "ccccc"
  5.     Ar = Split(Str, vbLf)
  6.     'Ar = Split(Str, Chr(10)) 'Chr(10) ¦P vbLf
  7.     For i = 0 To UBound(Ar)
  8.         Cells(i + 1, "A") = Ar(i)
  9.     Next
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD