用VBA对数据进行拆分

his803

要求如图所述，请老师帮忙，对数据进行拆分。

wengjl

Sub ss()
    aa = Cells(1, 1)
    x = 2
    ks = 1
    For i = 1 To Len(aa)
      If Mid(aa, i, 1) = "." Then
        zf = Mid(aa, ks, i + 2 - ks)
        ks = i + 2
        Cells(x, 2) = Split(zf, ".")(0)
        Cells(x, 3) = Split(zf, ".")(1)
        x = x + 1
      End If
    Next i
End Sub

cnmlgb9998

PQ解决方案，香不香？？？？？？？

his803

wengjl 发表于 2024-5-20 09:14
Sub ss()
    aa = Cells(1, 1)
    x = 2

谢谢老师！

his803

wengjl 发表于 2024-5-20 09:14
Sub ss()
    aa = Cells(1, 1)
    x = 2

谢谢老师提供的思路！

usedrange

Sub t()
    Dim arr, brr, i%, un
    arr = [a1]
    un = Replace(arr, ".", "")
    ReDim brr(1 To 1, 1 To Len(un))
    For i = 1 To Len(un)
        brr(1, i) = Mid(un, i, 1)
    Next i
    [a10].Resize(1, UBound(brr, 2)) = brr
End Sub

his803

cnmlgb9998 发表于 2024-5-20 09:15
PQ解决方案，香不香？？？？？？？

真香，但是暂时没学PQ

grf1973

..............

杨建营

请楼主参考。

his803

grf1973 发表于 2024-5-20 09:22
..............

谢谢老师无私帮助！