VBA .. 일종의 행열 바꾸기와 비슷한 VBA

test
1
2
3
4
5

test
a
b
c
d
e

특정 문자열을 중심으로 비슷한 모양이 반복되는 엑셀 데이터를.....


test        test        1        2        3        4        5
1                                                
2                                                
3                                                
4                                                
5                                                
                                                
test        test        a        b        c        d        e
a                                                
b                                                
c                                                
d                                                
e                                                

로 변환하는 (일종의 행열바꿈 코드.)

sub 자동채우기() Dim iRow As Integer Dim i As Integer Dim j As Integer With Worksheets("sheet1") iRow = 0 For i = 1 To 18200 If Left(.Cells(i, 1).Value, 1) = "t" Then iRow = i For j = 1 To 20 If Left(.Cells(iRow + j, 1).Value, 1) = "t" Then Exit For Else .Cells(iRow, 1 + j).Value = "=a" & iRow + j - 1 End If Next j End If Next i End With End Sub

몇개 안되는 데이터이면 수작업도 가능하지만

2만이 넘는 열을 바꿀려니.. 첨에는 매크로를 이용해서..약 3시간 작업을 했는데

적절한 vba를 이용하니 .... 5분도 안거릴더군여

역쉬나 사람은 배워야 한다는....