儲存格字串長度大於255 - Excel程式區

[發問] 儲存格字串長度大於255

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-6-30 09:06 | 顯示全部帖子

回復 1# a77261988

Option Explicit
Sub Ex()
Dim W As Variant, xi As Integer
W = "aaaaaaaa-aaaaa-aaa-aa-aa-a-a-aaaaa-aaa-aa-aa-a-a-aaaaa- aaa - aa - aa - a - a - aaaaa - aaa - aa - aa - a - a - aaaaa - aaa - aa - aa - a - a - aaaaa- aaa - aa - aa - a - a - aaaaa - aaa - aa - aa - a - a - aaaaa - aaa - aa - aa-a-a-aaaaa- aa -aa - aa - a - a - aaaaa - aaa - aa - aa - a - a - aaaaa - aaa - aa - aa - a - a - aaaaa - aaa - aa - aa - a - a"
W = Split(W, "-")
For xi = 2 To UBound(W) Step 3
W(xi) = W(xi) & Chr(10)
Next
[A1] = Join(W, Chr(10))
End Sub

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-6-30 17:13 | 顯示全部帖子

回復 4# a77261988

Option Explicit
Sub Ex()
Dim W As Variant, xi As Integer
W = "1aaaaaaaa-aaaaa-aaa-2aa-aa-a-3a-aaaaa-aaa-4aa-aa-a-a-aaaaa- aaa - aa - aa - a - a - aaaaa - aaa - aa - aa - a - a - aaaaa - aaa - aa - aa - a - a - aaaaa- aaa - aa - aa - a - a - aaaaa - aaa - aa - aa - a - a - aaaaa - aaa - aa - aa-a-a-aaaaa- aa -aa - aa - a - a - aaaaa - aaa - aa - aa - a - a - aaaaa - aaa - aa - aa - a - a - aaaaa - aaa - aa - aa - a - a"
W = Replace(W, "-", "-,")
W = Split(W, ",")
For xi = 2 To UBound(W) Step 3
W(xi) = W(xi) & Chr(10)
Next
[a1] = Join(W, Chr(10))
End Sub

複製代碼

靜思自在 : 不怕事多，只怕多事。