返回列表 上一主題 發帖

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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
1# 跳轉到 »
發表於 2012-6-30 14:16 | 顯示全部帖子
怎麼一個問題的解讀會有這麼大的不同，呵呵！樓主的說明方式要加油。
我的理解是：
  1. Sub yy()
  2.     W = [A1]
  3.     For i = 1 To Len(W)
  4.         If Mid(W, i, 1) = "-" Then
  5.             j = j + 1
  6.             If j = 3 Then
  7.                 Mid(W, i, 1) = ",": j = 0
  8.             End If
  9.         End If
  10.     Next
  11.     W = Split(W, ",")
  12.     [b1].Resize(UBound(W) + 1, 1) = Application.Transpose(W)
  13. End Sub
複製代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2012-6-30 15:33 | 顯示全部帖子
回復 5# a77261988
  1. Sub yy()
  2.     w = [A1]
  3.     For i = 1 To Len(w)
  4.         If Mid(w, i, 1) = "-" Then
  5.             j = j + 1
  6.             If j = 3 Then
  7.                 Mid(w, i, 1) = vbLf: j = 0
  8.             End If
  9.         End If
  10.     Next
  11.     [b1] = w
  12. End Sub
複製代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
3#
發表於 2012-6-30 16:08 | 顯示全部帖子
保留每行最后的"-"
  1. Sub yy()
  2.     w = [A1]
  3.     For i = 1 To Len(w)
  4.         If Mid(w, i, 1) = "-" Then
  5.             j = j + 1
  6.             If j = 3 Then
  7.                 Mid(w, i, 1) = ",": j = 0
  8.             End If
  9.         End If
  10.     Next
  11.     [b1] = Replace(w, ",", "-" & vbLf)
  12. End Sub
複製代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
4#
發表於 2012-6-30 16:52 | 顯示全部帖子
只要儲存格裡的字元長度大於255,就會沒辦法作排序整理
應該沒這個道理，儲存格可以顯示1024個字元
要整理多個儲存格，最好上傳附件，以了解你要處理的區域

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
5#
發表於 2012-6-30 19:25 | 顯示全部帖子
這樣整理不是顯得更亂？
  1. Sub yy()
  2.     For r = 1 To [d1000].End(3).Row
  3.         w = Cells(r, 4).Value
  4.         For i = 1 To Len(w)
  5.             If Mid(w, i, 1) = "-" Then
  6.                 j = j + 1
  7.                 If j = 3 Then
  8.                     Mid(w, i, 1) = ",": j = 0
  9.                 End If
  10.             End If
  11.         Next
  12.         Cells(r, 4) = Trim(Replace(w, ",", "-" & vbLf))
  13.     Next
  14. End Sub
複製代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
6#
發表於 2012-6-30 21:50 | 顯示全部帖子
不會有空白的，全選~把格式~對齊方式選"靠上對齊"，前面就不會空了！
程式碼套用GBKEE版主的代碼效率會更高：
  1. Sub yy()
  2.     For r = 1 To [d1000].End(3).Row
  3.         W = Cells(r, 4).Value
  4.         W = Replace(W, "-", "-,")
  5.         W = Split(W, ",")
  6.         For xi = 2 To UBound(W) Step 3
  7.             W(xi) = W(xi) & Chr(10)
  8.         Next
  9.         Cells(r, 4) = Trim(Join(W))
  10.     Next
  11. End Sub
複製代碼

TOP

        靜思自在 : 得理要饒人，理直要氣和。
返回列表 上一主題