儲存格字串長度大於255 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 儲存格字串長度大於255

返回列表下一主題上一主題發帖

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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

1^# 跳轉到 »

發表於 2012-6-30 14:16 | 顯示全部帖子

怎麼一個問題的解讀會有這麼大的不同，呵呵！樓主的說明方式要加油。
我的理解是：

Sub yy()
W = [A1]
For i = 1 To Len(W)
If Mid(W, i, 1) = "-" Then
j = j + 1
If j = 3 Then
Mid(W, i, 1) = ",": j = 0
End If
End If
Next
W = Split(W, ",")
[b1].Resize(UBound(W) + 1, 1) = Application.Transpose(W)
End Sub

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2012-6-30 15:33 | 顯示全部帖子

回復 5# a77261988

Sub yy()
w = [A1]
For i = 1 To Len(w)
If Mid(w, i, 1) = "-" Then
j = j + 1
If j = 3 Then
Mid(w, i, 1) = vbLf: j = 0
End If
End If
Next
[b1] = w
End Sub

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2012-6-30 16:08 | 顯示全部帖子

保留每行最后的"-"

Sub yy()
w = [A1]
For i = 1 To Len(w)
If Mid(w, i, 1) = "-" Then
j = j + 1
If j = 3 Then
Mid(w, i, 1) = ",": j = 0
End If
End If
Next
[b1] = Replace(w, ",", "-" & vbLf)
End Sub

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2012-6-30 16:52 | 顯示全部帖子

只要儲存格裡的字元長度大於255,就會沒辦法作排序整理
應該沒這個道理，儲存格可以顯示1024個字元
要整理多個儲存格，最好上傳附件，以了解你要處理的區域

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2012-6-30 19:25 | 顯示全部帖子

這樣整理不是顯得更亂？

Sub yy()
For r = 1 To [d1000].End(3).Row
w = Cells(r, 4).Value
For i = 1 To Len(w)
If Mid(w, i, 1) = "-" Then
j = j + 1
If j = 3 Then
Mid(w, i, 1) = ",": j = 0
End If
End If
Next
Cells(r, 4) = Trim(Replace(w, ",", "-" & vbLf))
Next
End Sub

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2012-6-30 21:50 | 顯示全部帖子

不會有空白的，全選~把格式~對齊方式選"靠上對齊"，前面就不會空了！
程式碼套用GBKEE版主的代碼效率會更高：

Sub yy()
For r = 1 To [d1000].End(3).Row
W = Cells(r, 4).Value
W = Replace(W, "-", "-,")
W = Split(W, ",")
For xi = 2 To UBound(W) Step 3
W(xi) = W(xi) & Chr(10)
Next
Cells(r, 4) = Trim(Join(W))
Next
End Sub

複製代碼

靜思自在 : 能幹不幹，不如苦幹實幹。

返回列表下一主題上一主題