게시판

연습장(다버리고 갑니다...)-남길 글이 있으면 민가촌에 남겨주시고, 회원 가입을 받지 않습니다.

2016/02/12 (17:02) from 124.137.60.57' of 0'	Article Number : 1084
...	Access : 827 , Lines : 149

엑셀 매크로_데이타 정렬

Download : 20160212_데이터샘플링.xlsm (1106 Kbytes)

-. 빌링Log 구성
| 구매번호 | 아이디 | 아이템번호 | 구매일자 | 구매총금액 | 리얼캐시 | 보너스캐시 | 게임캐시 | CORRELATION(item_id) |
| 479789 | cucu005 | 476 | 2015-12-21 22:27:55.913 | 990 | 990 | 0 | 0 | -8755099012208406048 |
| 479788 | cucu005 | 476 | 2015-12-21 22:27:46.650 | 990 | 990 | 0 | 0 | -8755099012217925424 |

-. 유료아이템 관련 Log 정렬
/ 발생 시간 순으로 기록이 되어 있기 때문에, 유료 아이템별 기록 확인이 어려움
/ Item_id 기준으로 데이타 재정렬, 참고로 구매번호를 사용
Dim sPost(nMaxList, 2) As String

-. CORRELATION(item_id) 기준으로 데이타 교환, 정리
/ 탐색 범위를 줄이는 방법 고안

-. 변수형 타입에 따라 크기가 있기 때문에 대용량 데이타 처리시 주의

'//=============================================================================
'//=============================================================================

Sub reset()

Const nMaxList As Long = 14000

Dim sPost(nMaxList, 2) As String
Dim sBuy_ID As String
Dim nCounter As Long

Application.ScreenUpdating = False '코드 실행 중 차트와 같은 화면 업데이트 방지
Application.Calculation = xlCalculationManual   '코드 실행 중 셀 계산 방지
Application.EnableEvents = False    '이벤트 실행 방지

'//=============================================================================
Sheets("빌링Log").Select

nCounter = 0

For i = 2 To nMaxList
   Cells(i, 1).Select
   sBuy_ID = ActiveCell    ' 구매번호

   If (sBuy_ID = "") Then Exit For

   sPost(nCounter, 0) = sBuy_ID                        ' 구매번호
   sPost(nCounter, 1) = ActiveCell.Offset(0, 8).Value ' CORRELATION

   nCounter = nCounter + 1
Next i

'//-----------------------------------------------------------------------------
'//-----------------------------------------------------------------------------
Const nListStart        As Long = 6
'Const nMaxListSearch    As Long = 10000
Dim nMaxListSearch As Long
Dim nListCurrent    As Long
Dim nListSearch     As Long

nMaxListSearch = nListStart
nListCurrent = nListStart
nListSearch = nListStart

'//-----------------------------------------------------------------------------
Sheets("원장").Select

Range("a1:n2").Select
Selection.ClearContents

Cells(1, 3).Select
ActiveCell.Value = nCounter

Do While (Cells(nMaxListSearch, 2) <> "")
   nMaxListSearch = nMaxListSearch + 1
Loop

Cells(1, 7).Value = nMaxListSearch

'//-----------------------------------------------------------------------------
nListCurrent = nListStart
For i = 0 To nCounter

   If (nListSearch = nMaxListSearch) Then Exit For

   If (sPost(i, 1) <> "") Then
       Cells(1, 4).Value = i
       Cells(1, 5).Value = nListSearch

       For j = nListSearch To nMaxListSearch
           Cells(1, 6).Value = j

           If (Cells(j, 2) = "") Then Exit For

           If (sPost(i, 1) = Cells(j, 12)) Then
               If (j = nListSearch) Then
                   nListCurrent = nListCurrent + 1
                   nListSearch = nListCurrent
               Else
                   Cells(j, 11).Value = sPost(i, 0)
                   Cells(nListCurrent, 1).Resize(1).EntireRow.Insert
                   Cells(j + 1, 1).Resize(1, 20).Copy Cells(nListCurrent, 1).Resize(1, 20)
                   Cells(j + 1, 1).Resize(1).EntireRow.Delete
                   nListCurrent = nListCurrent + 1
               End If
           End If
       Next j

       nListSearch = nListCurrent

   End If

Next i

'//-----------------------------------------------------------------------------
' 중복 데이터 삭제
' 단위 검색 범위    ; 구매번호 Cells(nListCurrent, 11)
nListCurrent = nListStart
nListSearch = nListCurrent + 1

Do While (Cells(nListCurrent, 11) <> "")

   If (Cells(nListSearch, 11) = "") Then Exit Do

   Cells(2, 5).Value = nListCurrent

   Do While (Cells(nListSearch, 11).Value = Cells(nListCurrent, 11).Value)
       nListSearch = nListSearch + 1
   Loop

   For i = nListCurrent To (nListSearch - 1)
       For j = (i + 1) To nListSearch
           If ((Cells(i, 3) = Cells(j, 3)) And (Cells(i, 14) = Cells(j, 14))) Then
               Cells(2, 6).Value = j
               Cells(j, 1).Resize(1).EntireRow.Delete
           End If
       Next j
   Next i

   ' 다음 단계로 이동
   If (nListSearch = nListCurrent) Then nListSearch = nListCurrent + 1

   nListCurrent = nListSearch
   nListSearch = nListCurrent + 1
Loop

Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub