快速将一行数据分成固定长度的若干个数据

shijiezsh

快速将一行数据分成固定长度的若干个数据，且防止后面几位数字变成0

良良

A5=MID(A$1,ROW(A1)*16-15,16)，下拉。

世界客都

1. =MID(A$1,ROW(A1)*16-15,16)

复制代码

gwjkkkkk

Sub test()
    Dim ar, i&, r&, strNumber$, n&
   
    n = Application.InputBox("请输入分割数", Title:="提示", Default:=16, Type:=1)
    If n = 0 Then Exit Sub
   
    strNumber = [A1].Value
    ReDim ar(1 To Len(strNumber), 0) As String
    For i = 1 To Len(strNumber) Step n
        r = r + 1
        ar(r, 0) = Mid(strNumber, i, n)
    Next i
   
    [A5].CurrentRegion.Clear
    [A5].Resize(r) = ar
End Sub

gwjkkkkk

VBA法参与一下。。。