Re: [VBA ] 一格中有兩個數字要分開

看板Visual_Basic作者MOONRAKER (㊣祕密情報員)時間17年前 (2009/01/06 22:29)推噓6(6推 0噓 24→)

留言30則, 3人參與討論串3/4 (看更多)

: 推 fumizuki:Excel XP 測試 Regular Expression無效@@ 01/06 21:34 : → MOONRAKER:啊？可是我這邊的程式是用Excel 2003跑出來的啊 01/06 22:11 : → MOONRAKER:馬上再測一遍，真的回家就沒效…那先前到底是怎麼弄的… 01/06 22:14 回憶起來一些細節，當時我曾想看ubound(segs)的值，怎麼看都是0 那時怎麼想也想不透，現在想通了，因為那時根本沒切出token 看來regex的寫法真的是沒效，我洨了，對不起大家 XD 回到正題，我一直不懂為什麼split()每兩個分隔符號之間就一定拆出一個子字串就算長度0也照拆所以碰到單字間有一個以上的空白，陣列裡就會有很多空字串 "" 我會這樣寫來跳過空字串： Sub abc() For i = 1 To 4 segs = Split(Cells(i, 1), " ") j = 0 ' j : 在下面的 for 中使用，用來查看結果陣列 segs x = 1 ' x : 現在抓到的非０元素是第幾個 For j = 0 To UBound(segs) If segs(j) <> "" Then ' 確定這一個元素不是空字串… x = x + 1 ' 才寫到工作表上 Cells(i, x) = segs(j) End If Next j Next i End Sub 我也不知道有什麼更好的方法或者我用split() 的方法一直都不對？（所以下午才呆到以為真的可以用regex）　 -- BATCH 03 : 買張床 - 切達大俠 - 伐木人之歌 - http://tinyurl.com/3zpyx5 [B4準備中]: 謳歌金錢(7/02) - 單車超人(7/23) - http://tinyurl.com/66v6vq [ 番外篇 ]: 包租婆也有過當羅莉的時候(7/17) - http://tinyurl.com/6j4ale ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ■ 蒙帝派松正體中文計畫 ■ Spam-a-lot and enjoy the pythonesque delight! ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ http://www.youtube.com/user/JamesBondXD▄▄ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.217.159.164

推

fumizuki

01/07 07:26, , 1^F

01/07 07:26, 1^F

→

fumizuki

01/07 07:27, , 2^F

01/07 07:27, 2^F

→

fumizuki

01/07 07:28, , 3^F

01/07 07:28, 3^F