GBKEE

回復 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) 同 vbLf
   
7.     For i = 0 To UBound(Ar)
   
8.         Cells(i + 1, "A") = Ar(i)
   
9.     Next
   
10. End Sub

複製代碼