範例_字串切割與Do_While迴圈不定數量結果 - 吳老師教學部落格

文章推薦指數: 80 %
投票人數:10人

取得頭尾位置與切割字串. a = VBA.InStr(Cells(i, "A"), "【】", 分別放在將找到位置的值放在a和b中, 如果a或b為0,表示找不到。

Sub字串切割()     '1.迴圈範圍     Fori=2ToRange("A2").End(xlDown).Row         '2.取得頭尾位置與切割字串         a=VBA.InStr(Cells(i,"A"),"【】")         Ifa<>0Then             '5.輸出結果        



請為這篇文章評分?