提取【】中的内容

仰望的狮子

需求：A列内容 包括【】如图1，数据量很大，故现想通过VBA代码 提取黑括号内容，并按照单元格分列至属性框内（图2）

jiangxiaoyun

这个用正则或者split都可以

约定的童话

Sub 提取()
    Dim i, j, arr, m
    arr = [a1].CurrentRegion
    j = 1
    For i = 2 To UBound(arr)
        m = Split(arr(i, 1), "【")
        For k = 1 To UBound(m)
           j = j + 1
           arr(i, j) = Split(m(k), "】")(0)
        Next
        j = 1
    Next
    [a1].CurrentRegion = arr
End Sub
好用记得感谢哈..

仰望的狮子

谁来告诉我一下怎么献花？

zpy2

仰望的狮子 发表于 2020-10-27 18:46
谁来告诉我一下怎么献花？

http://club.excelhome.net/thread-1304379-1-1.html

ph378

学习了，收藏一下