excel单元格换行后，怎么一行一行的读取啊？

Question

比如我一个单元格是
111
222
333
怎么样，一行一行的读取啊

Answer 1

单元格内是用Alt+Enter,来换行的

Answer 2

这样就行了：Dim sTxt$, sArr$(), i&
sTxt = ActiveCell.Text
sArr = Split(sTxt, vbCrLf)
For i = 0 To UBound(sArr)
    Debug.Print sArr(i)
Next

Answer 3

sArr = Split(sTxt, vbCrLf)
改成：
sArr = Split(sTxt, vbLf)

Answer 4

sub 分析()
  K=1
 WHILE CrLf_Pos>1
 CrLf_Pos=INSTR(CELLS(I,J),vbCrLf)
  IF  CrLf_Pos>1 THEN
   CELLS(I,J+K)=MID(CELLS(I,J),1,CrLf_Pos)
   K=K+1
  ENDIF
LOOP
end sub
其中I,J代表字符所在的行和列