엑셀VBA 가로로 정리 된 데이터 세로로 변형하기

Sub Test() Dim m As Workbook Dim ms As Worksheet Set m = Workbooks(ThisWorkbook.Name) For Each ms In m.Sheets If ms.Name = "청라" Then Set ms = ms Dim i As Integer: Dim j As Integer Dim START_ROW As Integer: Dim START_COL As Integer Dim outv As Variant '// (1 To 7) : Row : tctype ReDim outv(1 To 7, 1 To 1) START_ROW = 13 START_COL = 4 Dim r As Integer: r = 1 '// 우측으로 이름 반복 For i = 4 To ms.Cells(ST..

2020.04.13