|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
특정셀을 지우고 정렬하는 방법에 대하여 조언부탁합니다(셀 삭제가 아니라 정렬을 해야됩니다)-첨부파일을 올려 놓습니다
==============[허수아비님 글에 대한 답변입니다]==============
안녕하세요?
전에 했던것이네요..
위와 같이 하신다면 아래 코드를 참고해 보세요.
Sub 연습()
Dim Rng As Range
Dim RngC As Range
Dim i As Integer
Dim j As Integer
Dim k As Integer
Set Rng = Range("E1:K5")
Application.ScreenUpdating = False
For Each RngC In Rng
k = k + 1
j = Application.WorksheetFunction.RoundUp(k / 7, 0)
For i = 1 To 3
If Cells(j, i) = RngC Then
RngC.ClearContents
End If
Next i
Next
For Each RngC In Rng.Resize(Rng.Rows.Count, 1)
RngC.Resize(1, 7).Sort Key1:=RngC, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next RngC
Application.ScreenUpdating = True
End Sub
그럼.
|
|