ExcelVBA单元格内字符串截取功能：v列有值的单元格内字符串截取
1Sub Demo3()
2Dim str
3With ActiveSheet
4For i = 2To .Range("v65535").End(xlUp).Row
5If Not Len(Trim(ActiveSheet.Cells(i, 22))) = 0Then
6str = ActiveSheet.Cells(i, 22)
7                  ActiveSheet.Cells(i, 22 - 6) = Left(str, InStr(str, "///") - 1)
vba计算字符串长度8                  ActiveSheet.Cells(i, 22 - 4) = Right(str, Len(str) - InStrRev(str, "/"))
9                  ActiveSheet.Cells(i, 22 - 5) = Mid(str, InStr(str, "///") + 3, InStrRev(str, "///") - (InStr(str, "///") + 3))
10End If
11Next
12End With
13MsgBox ("恭喜你完成任务！")
14End Sub
讲⼀下：
Range("v65535").End(xlUp).Row
  获得Excel最下⾯⼀个有内容的单元格的⾏
Len(Trim(ActiveSheet.Cells(i, 22))) = 0
  判断单元格内是否是有值的，可以排除有空格的影响

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。