如何自动输入文字或代码?

问题描述 投票:-2回答:1

示例数据:

0102030405060708091011121314151617181920

我想这样做:(如果读取10 sel auto enter)

0102030405(enter)
0607080910(enter)
1112131415(enter)
1617181920(enter)

nt:水平(每10个sel)到垂直

database excel notepad++
1个回答
0
投票

从...开始:

enter image description here

运行MAIN()

Public Function frag(s As String, N As Long)
    Dim L As Long, K As Long
    L = Len(s)
    K = L / N
    ReDim ary(1 To K)

    For kk = 1 To K
        ary(kk) = Mid(s, N * kk - (N - 1), N)
    Next kk

    frag = ary
End Function

Sub MAIN()
    Dim st As String
    Range("A1").NumberFormat = "@"
    With Range("A1")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
    End With

    st = [A1]
    arr = frag(st, 10)

    [A1] = Join(arr, vbCrLf)

End Sub

将产生:

enter image description here

© www.soinside.com 2019 - 2024. All rights reserved.