[已解决]取字符串

15968725770

谢谢

最佳答案

月排行榜 / 总排行榜

哥儿-

2022-11-10 14:15

这网站，终于能上了，练习练习

Sub 按钮1_Click()
    Dim vArr, brr
    Dim i%, j%
    vArr = Range("A2").CurrentRegion
    ReDim brr(1 To UBound(vArr), 1 To 3)
    For i = 2 To UBound(vArr)
        brr(i - 1, 1) = Split(vArr(i, 1), "*")(0)
        brr(i - 1, 2) = Split(vArr(i, 1), "*")(1)
        brr(i - 1, 3) = Split(vArr(i, 1), "*")(2)
    Next i
    [c3].Resize(UBound(brr), 3).Clear
    [c3].Resize(UBound(brr), 3) = brr
End Sub

跳转到最佳答案楼层

benhsu

利用Excel的分列功能即可

    Range("C3:E" & [A3].End(xlDown).Row).Clear
    Range("A3:A" & [A3].End(xlDown).Row).TextToColumns Destination:=Range("C3"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
            :="*", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
            TrailingMinusNumbers:=True

哥儿-

这网站，终于能上了，练习练习

Sub 按钮1_Click()
    Dim vArr, brr
    Dim i%, j%
    vArr = Range("A2").CurrentRegion
    ReDim brr(1 To UBound(vArr), 1 To 3)
    For i = 2 To UBound(vArr)
        brr(i - 1, 1) = Split(vArr(i, 1), "*")(0)
        brr(i - 1, 2) = Split(vArr(i, 1), "*")(1)
        brr(i - 1, 3) = Split(vArr(i, 1), "*")(2)
    Next i
    [c3].Resize(UBound(brr), 3).Clear
    [c3].Resize(UBound(brr), 3) = brr
End Sub

rlz680926

Sub test()
Dim regx As Object
Set regx = CreateObject("vbscript.regexp")
With regx
    .Global = True
    .Pattern = "\d*\.?\d+"
End With
For i = 3 To 6
    Set mat = regx.Execute(Cells(i, 1).Value)
    n = 0
    For Each m In mat
        n = n + 1
        Cells(i, n + 2) = m
    Next
Next

End Sub

rlz680926

Sub fenlie()
Dim i As Integer
Dim arr
arr = [a3:a6]
For i = 1 To UBound(arr)
    brr = Split(arr(i, 1), "*")
       Cells(i + 8, 3).Resize(1, UBound(brr) + 1) = brr
Next
End Sub

okjok

1. Sub texttocol()
   
2.     Range("c3:e6").Clear
   
3.     Range("a3:a6").TextToColumns Destination:=Range("c3"),OtherChar:="*"
   
4. End Sub

复制代码