|
'-------------------------------------------------------------------
' 제 유트브 체널에 오시면 더 많은 자료를 보실 수 있습니다.
'-------------------------------------------------------------------
https://www.youtube.com/channel/UChR2YTnlpU9OVfLyH_09YeA
'소스 코드
'----------------------
Sub reform_data()
'----------------------
'소스 범위
Dim rngX As Range: Set rngX = _
Range("D4", Range("D4").End(xlDown).End(xlToRight))
Dim col As Range, cell As Range
Dim iCol As Long, iRow As Long
Dim v As Variant
'붙여넣을 위치
Dim rTarget As Range: Set rTarget = Range("I12")
Application.ScreenUpdating = False
'기존 자료 지우기
rTarget.CurrentRegion.ClearContents
'제목행
rTarget.Resize(1, 6).Value = Array("매장코드", "매장명", "방문날짜", "코드", "품명", "회수")
'다음 줄
Set rTarget = rTarget.Offset(1)
For Each col In rngX.Columns
For Each cell In col.Cells
'열, 행
iCol = cell.Column: iRow = cell.Row
'데이타 배열에 담기
v = Array( _
Cells(iRow, 1).Value, Cells(iRow, 2).Value, Cells(iRow, 3).Value, _
Cells(2, iCol).Value, Cells(3, iCol).Value, cell.Value _
)
'데이타 붙여넣기
rTarget.Resize(1, 6).Value = v
'다음 줄
Set rTarget = rTarget.Offset(1)
Next cell
Next col
'날짜 형식 변경
rTarget.CurrentRegion.Columns(3).NumberFormat = "mm월 dd일"
Application.ScreenUpdating = True
End Sub
|
|