Excel VBA 單元格內字符串截取

功能：v列有值的單元格內字符串截取

Sub Demo3()
Dim str
    With ActiveSheet
         For i = 2 To .Range("v65535").End(xlUp).Row
             If Not Len(Trim(ActiveSheet.Cells(i, 22))) = 0 Then
                 str = ActiveSheet.Cells(i, 22)
                 ActiveSheet.Cells(i, 22 - 6) = Left(str, InStr(str, "///") - 1)
                 ActiveSheet.Cells(i, 22 - 4) = Right(str, Len(str) - InStrRev(str, "/"))
                 ActiveSheet.Cells(i, 22 - 5) = Mid(str, InStr(str, "///") + 3, InStrRev(str, "///") - (InStr(str, "///") + 3))
             End If
         Next
    End With
    MsgBox ("恭喜你完成任務！")
End Sub

講一下：

Range("v65535").End(xlUp).Row

　　獲得Excel最下面一個有內容的單元格的行

Len(Trim(ActiveSheet.Cells(i, 22))) = 0

　　判斷單元格內是否是有值的，可以排除有空格的影響