텍스트 또는 코드를 자동으로 입력하는 방법은 무엇입니까?

Question

예 데이터 :

0102030405060708091011121314151617181920 

나는이처럼 만들고 싶어 :

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

NT (10 SEL 자동 읽기 입력 한 경우) : 수직

Answer 1

시작으로 수평 (매 10 SEL)를 다음을 포함합니다 :

실행 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 

생산됩니다