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

　　判断单元格内是否是有值的，可以排除有空格的影响