推 fumizuki:vbCrLf = vbNewLine 09/28 22:45
推 fumizuki:Split(n, vbCrLf) 比較標準 09/28 22:45
推 albb0920:有些狀況下，會只有Chr(13)，所以我才這樣用 XD 09/28 23:26
推 fumizuki:可以先檢查有沒有 CrLf，沒有 CrLf 才用 Cr 分隔XD 09/29 06:18
我是這樣寫的啦 XD
n = "甲乙丙丁" & vbNewLine & "戊己庚辛" 'vbnewline就是 Chr(10) & Chr(13)
n = Replace(n, Chr(10), "") '事實上，Chr(10) 可有可無
Dim data As Variant
data = Split(n, Chr(13))
For i = 0 To UBound(data)
Print data(i)
NextD
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.64.26.55