如何自动输入文本或代码？答案

【问题标题】：How to auto enter text or code?如何自动输入文本或代码？
【发布时间】：2018-06-07 23:44:05
【问题描述】：

示例数据：

0102030405060708091011121314151617181920

我想让它变成这样：（如果读取 10 sel 自动输入）

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

nt：水平（每 10 sel）到垂直

【问题讨论】：

我认为您可能需要进一步扩展您的问题（也许更多的上下文和您期望看到的示例）？此外，SO 并非旨在成为代码编写服务。见How to Ask
还可以查看tour 和minimal reproducible example。
请详细解释您的问题。我们无法从问题中理解任何内容
您可能想研究“regular expression 搜索和替换”对于每十位插入换行符有何用处。

标签： database excel notepad++

【解决方案1】：

开始于：

运行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

将产生：

【讨论】：