Excel 宏录制与VBA编程 —— 12、文本字符串类型相关(转换、拆分、分割、连接、替换、查找、“Like“)

字符串分割,文末示例(文末代码3附有源码)

代码1 - 基础字符串

代码2 - 字符串拆分

代码3 - 字符串分割
cpp 复制代码
Option Explicit

Sub WorkbooksClear()
    Dim DataRange As Range
    Set DataRange = Range("C2:E12")
    DataRange.Clear
End Sub

Sub WorkbooksTest()
    Dim DataRange As Range
    Set DataRange = Range("A2:A12")
    
    Dim DataRowCount As Long
    DataRowCount = DataRange.Rows.Count
    
    Dim Index As Integer
    For Index = 1 To DataRowCount
        Dim Item As Range
        Set Item = DataRange.Cells(Index, 1)
        
        Dim Items() As String
        Items = VBA.Split(Item, "-")
        
        Dim StringIndex As Integer
        For StringIndex = LBound(Items) To UBound(Items)
            Item.Offset(0, StringIndex + 2).Value = Items(StringIndex)
        Next StringIndex
    Next Index
End Sub

代码4 - 字符串连接

代码5 - 字符串替换

代码6 - 字符串比较、大小写转换

代码6 - 字符串查找

代码7 - "Like"正则

关注

笔者 - jxd

相关推荐
张太行_9 天前
MySQL与Excel比较
数据库·mysql·excel
cwtlw10 天前
Excel学习03
笔记·学习·其他·excel
郭优秀的笔记10 天前
计算本地Excel某两列的差异值
excel
涔溪10 天前
实现 el-table 中键盘方向键导航功能vue2+vue3(类似 Excel)
前端·vue.js·excel
云博客-资源宝10 天前
Excel函数大全
机器学习·excel·概率论
BillKu11 天前
【前后前】导入Excel文件闭环模型:Vue3前端上传Excel文件,【Java后端接收、解析、返回数据】,Vue3前端接收展示数据
java·前端·excel
焚 城12 天前
Excel数据导出小记
.net·excel
wtsolutions12 天前
Excel to JSON online converter, flat and nested JSON converter
json·excel·excel-to-json·wtsolutions
消失在人海中12 天前
excel 数据透视表介绍
excel