|---|-----|
| 갑 | 3 |
|---|-----|
| 을 | 100|
|---|-----|
| 을 | 2 |
|---|-----|
| 병 | 50 |
|---|-----|
| 정 | 51 |
|---|-----|
| 정 | 1 |
|---|-----|
이런 표가 있다고 할때,
숫자가 높은순으로 하되 같은 이름이 있을경우 같은 이름을 그룹으로 보고, 묶어서 정렬 하고싶습니다.
을 100
을 2
정 51
정 1
병 50
갑 3
이런식으로말이죠..
엑셀은 재대로 배운적이 없어서.. 훌쩍.. 어떻게 해야할지를 모르겟네요..
지식인 통해서 VBA 스크립트를 짜봤는데, 비주얼 베이직을 배운적이 없어서 이건 작동을 안하네요.훌쩍
스크립트 보시면 아시다싶이 1000건이나 되는거라 노가다로 어케 해볼 수준이 아니네요..
Dim i, j As Integer
Dim iCount As Integer
iCount = 0
For i = 1 To 998
Cells(15, i).Value = iCount
For j = i To 998
If Cells(5, i).Value = Cells(5, j).Value Then
iCount = 1 + iCount
Cells(15, j).Value = iCount
End If
Next j
Next i
뒤 15, 2번 셀의 내용을 기준으로 정렬해보려했는데;;
작동을 안하네요. 훌쩍 cells(x,y).value 가 특절 셀의 값을 대입하거나 읽는게 아닌가봐요;
처음 이름을 오름차순하면 갑을병정순으로 정렬되고
같은 값을 가지는 갑중에 가장 높은갑이 위로정렬이 되요.
엑셀의 정렬 기능을 이용해서 첫번째에 이름 두번쨰에 숫자를 사용하면요.
숫자가 가장 높은 값을 가지는 사람이 가장위로, 그다음 그사람이 가지는 데이터 쭉나오고,
그다음 높은 값을 가지는 사람이 나오고 그사람 데이터 쭉 나와야 해서요. 흐음..어렵네요.
위 스크립트 오류접을 하나 찾았네요. cells(열, 행)이 아니고 (행,열)열 이였네요 훌쩍.
문제 접근 방법을 잘못하니 해결하는데 시간이 걸리는군요.
큰 루프 먼저생각하니 작은 문제를 찾는데 너무 오래걸리네요.
작은 문제(루프)를 먼저 생각하고 처음부터 다시 짜니 제대로 작동하네요.
일단 모든 행을 높은 값순으로 정렬한뒤
Private Sub CommandButton2_Click()
Dim i, j, iCount As Integer
For j = 1 To 1713
For i = 1 To 1713
If Cells(i, 2).Value = Cells(j, 2).Value Then
If Cells(i, 4).Value = "" Then
iCount = iCount + 1
Cells(i, 4).Value = iCount
End If
End If
Next i
Next j
End Sub
이렇게 중복값을 일일히 루프 돌면서 검색해서 있으면 카운트되는 수를 이용해 표기하고
그 카운트된 수로 정렬하니 되네요.^^;
쪽지및 답변주신분들 모두 고맙습니다.^^;
데이타 - 정렬
열 A - 값 - 을,정,병,갑
열 B - 값 - 내림차순
으로 하면 원하는 값이 나오는 듯 싶습니다.
매크로도 좋지만 간단한 건 사용자 정의 목록으로 하시면 편해요
아 그방법도 있었네요.
흐음 높은갑으로 정렬한뒤, 고급필터로 동일레코드 제거하고, 그걸 사용자 목록으로 만드는 방법도..
흐음 그런데 약 1000건도 입력이 되나요?; 다음에 비슷한 작업할때 해봐야겠네요.^^;