2014-10-13 4 views
0

나는 값을 Excel에서 테이블이 :
다수의 첫 번째 열/엑셀 기능

Caption | Num1 | Num2 | Num3 | NumN+1 
aaa  | 10 | 20 | 30 | ... 
bbb  | 40 | 50 | 60 | ... 
...and going... 

내가 각 [NumN + 1 옆에 [캡션] 열을 배치 할 ] 열을 입력하십시오 :

Caption | Num1 | Caption | Num2 | Caption | Num3 | Caption | NumN+1 
aaa  | 10 | aaa  | 20 | aaa  | 30 | aaa  | ... 
bbb  | 40 | bbb  | 50 | bbb  | 60 | bbb  | ... 
...and going... 

정규 표현식/Excel 함수/VBA로이 문제를 해결할 수있는 도움을 찾고 있습니다.

+0

각 NumN 열 사이에 캡션 열을 반복하면됩니까? – JNevill

+0

@JNevill, 당신 말이 맞아요. – Dilanyan

+0

컬럼/필드의 수가 너무 크지 않으면 수동으로 컬럼을 삽입하고'= A1'을 사용하여 추가 된 각 컬럼에 캡션 값을 전달합니다. 열 수가 많으면 VBA를 사용하여 삽입을 수행하는 것이 좋습니다. – JNevill

답변

1

이 방법이 유용합니까?

Sub CopyColumns() 
    Dim r As Range 
    Dim ws As Worksheet 

    Set ws = ' Your Worksheet here 

    Set r = ws.Columns(3) 

    While r.Cells(1, 1) <> "" 
     ws.Columns(1).Copy 
     r.Insert 
     Set r = r.Offset(0, 1) 
    Wend 

    Application.CutCopyMode = xlNone 
End Sub 
+0

완벽하게. 감사. – Dilanyan

관련 문제