共享两段excel vba 分列代码实现不规则数据源的分列

office教程网 2024-03-01 01:44:26

默认

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要：

excel vba 分列多用于一般常规的分列操作完成不了的情况。

　　Excel内置的分列，仅用于有规律的数据进行分列。比如下面的截图，这样的数据源，分列就可以考虑使用excel vba 分列完成。

　　A列数据源，要将汉字和数字分列后的效果如B:D列。

　　下面是两段excel vba 分列的代码，案例和答案来自论坛版主。

excel 日期转星期和计算星期几的方法
文章给出excel日期转星期的公式，通过日期获取到对应的星期几。以及计算时间范围内统计每个星期几的天数。第一，excel日期转星期excel日期转星期可以使用WEEKDAY或者text函数实现。下面是

　　第一段excel vba 分列的代码：

Sub vba分列()
    Dim oJs As Object, rng As Range
    Set oJs = CreateObject("ScriptControl"): oJs.Language = "JScript"
    oJs.eval "function gets(str){return str.replace(/(d )/,' $1 ')}"
    For Each rng In Range("A2", [A65536].End(3))
        rng(1, 2).Resize(1, 3) = Split(oJs.codeobject.gets(rng.Value), " ")
    Next
End Sub

　　第二段excel vba 分列的代码：

Sub vba分列()
    Dim arr, i%, brr(), sma As Object
    arr = Range("a2:a" & Cells(Rows.Count, 1).End(3).Row)
    ReDim brr(1 To UBound(arr), 1 To 3)
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "([^d] )(d )(. )"
        For i = 1 To UBound(arr)
            Set sma = .Execute(arr(i, 1))(0).submatches
            brr(i, 1) = sma(0)
            brr(i, 2) = sma(1)
            brr(i, 3) = sma(2)
        Next
    End With
    Range("b2", Cells(Rows.Count, Columns.Count)).ClearComments
    Range("b2").Resize(UBound(brr), UBound(brr, 2)).NumberFormat = "@"
    Range("b2").Resize(UBound(brr), UBound(brr, 2)) = brr
    Set sma = Nothing
End Sub