Re: [算表] vba內字串選取的迴圈問題

看板Visual_Basic作者 (可)時間13年前 (2011/05/06 22:57), 編輯推噓1(1推 0噓 0→)
留言1則, 1人參與, 最新討論串3/3 (看更多)
謝謝前一篇兩位版友的推文 ...早知道有Split就不用那麼辛苦地土法煉鋼.... instr改天再來研究看看 不過那個連結我點下去好像有點錯誤耶 今天看了一下VBA的陣列 把原本的修改過 雖然不太專業但至少比原本的簡潔多了@@ Sub macro 1() Dim x As String x = Cells(1, 1) y = Len(x) '清除A欄的儲存格內容 Range("A2:A65536").ClearContents '宣告陣列 ReDim Z(y) As String 'k 初始 k = 1 '紀錄斜線的位置 For m = 1 To y If Mid(x, m, 1) = "/" Then Z(k) = m k = k + 1 End If Next '頭 尾 Z(0) = 0 Z(k) = y + 1 '開始貼上 For i = 0 To k - 1 Cells(i + 2, 1) = Mid(x, Z(i) + 1, Z(i + 1) - Z(i) - 1) Next Range("A1").Activate End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.166.123.56
推
05/07 22:52, , 1F
Split google一下就有很多範例了
05/07 22:52, 1F
‣ 更多 olycats 的文章
文章代碼(AID): #1Dn0n91o (Visual_Basic)
‣ 更多 olycats 的文章
文章代碼(AID): #1Dn0n91o (Visual_Basic)