テキストやコードを自動入力する方法は？

Question

例データ：

0102030405060708091011121314151617181920 

私はこのようにそれを作りたい：（読ま10 SELの自動入力する場合）

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

NT：垂直

Answer 1

開始する（すべての10 SEL）水平with：

は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 

が生成されます：