字符串分割,文末示例(文末代码3附有源码)
代码1 - 基础字符串
代码2 - 字符串拆分
代码3 - 字符串分割
Option ExplicitSub WorkbooksClear()Dim DataRange As RangeSet DataRange = Range("C2:E12")DataRange.Clear
End SubSub WorkbooksTest()Dim DataRange As RangeSet DataRange = Range("A2:A12")Dim DataRowCount As LongDataRowCount = DataRange.Rows.CountDim Index As IntegerFor Index = 1 To DataRowCountDim Item As RangeSet Item = DataRange.Cells(Index, 1)Dim Items() As StringItems = VBA.Split(Item, "-")Dim StringIndex As IntegerFor StringIndex = LBound(Items) To UBound(Items)Item.Offset(0, StringIndex + 2).Value = Items(StringIndex)Next StringIndexNext Index
End Sub
代码4 - 字符串连接
代码5 - 字符串替换
代码6 - 字符串比较、大小写转换
代码6 - 字符串查找
代码7 - "Like"正则
关注
笔者 - jxd