下面是程式碼分享

Sub yu()

Dim sr As Range, sr2% 申明資料型別變數和整數型別變數

For Each sr In Range("b2", Cells(2, 2).End(xlDown)) 迴圈獲取動態單元格區域

sr2 = InStr(sr.Value, "/") 獲取指定字元在字串的第幾位上，返回的是數字

sr.Offset(0, 1) = Left(sr.Value, sr2 - 1) 從左向右計算提取指定的位數

sr.Offset(0, 2) = Mid(sr, sr2 + 1, 9) 從指定的開始位置提取，提取指定的幾位數

Next 迴圈達到結束

End Sub