範例_字串切割與Do_While迴圈不定數量結果

[吳老師]

範例_字串切割與Do_While迴圈不定數量結果

這個範例是學員工作上的問題，

每天都需要將儲存格中的超連結取出到B欄中，

若儲存格中只有一個超連結還好解決，

可以用Find函數找中括弧位置，再用Mid函數切割，

剛好這個範例裡面不只一個超連結，

可能有兩個、三個甚至更多，

也就是數量不定，如果要用For迴圈，也要知道數量範圍，

所以只能用 Do While 迴圈了，

從第一個字找起，之後再從找到的位置加一再找了，該如何做。

一、函數

如果用VBA撰寫的程式

一、階段一，先撰寫只取一個超連結

外面的For迴圈是跑每一列，用 Instr函數找"【<"和">】"，

分別放在將找到位置的值放在 a和b 中，

如果a或b為0，表示找不到。

如果多個超連結，可以先多產生 a1和b1變數，預設值為 1，

即從頭找起，找到之後再把  a1和b1 加1之後繼續找，

直到找不到為止，Do While 後面就是邏輯，為 True 就繼續找，

反之就離開迴圈了。

教學影音與練習檔(完整版在論壇)：

https://terry55wu.blogspot.com/2019/09/dowhile.html

教學影音完整版在論壇與練習檔：

https://groups.google.com/forum/#!forum/scu_excel_vba2_107

吳老師 2019/9/20