엑셀 정렬 질문입니다

일국   
   조회 4416   추천 0    

RANDBETWEEN(1,45) 함수를 사용하여 각 셀마다 임의번호를 생성한 뒤

"자료정렬"버튼을 누르면 Visual Basic 개발도구로

위의 data 값만 아래에 복사하는 기능까지 완성하였습니다.

질문은 

값을 복사한 뒤 가로로 정렬하는 부분에서 막히네요

아시는분 알려주세요.   미리 감사드립니다.
짧은글 일수록 신중하게.
김제연 2021-01
가로정렬이라는건 작은게 앞으로 큰게 뒤로 가는건가요?
그냥.. 셀에다 복사 하실때 정렬해서 붙여 넣으시는게 좋을것 같은데요..
이충욱blue 2021-01
각 행별로 정렬한다면

    For i = 7 To 11
        Set Datas = Range("A" & i & ":F" & i)
       
        ActiveSheet.Sort.SortFields.Clear
        ActiveSheet.Sort.SortFields.Add2 Key:=Datas _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveSheet.Sort
            .SetRange Datas
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlLeftToRight
            .SortMethod = xlPinYin
            .Apply
        End With
    Next i
     
일국 2021-01
오... 잘 되네요.  감사합니다.
로또 당첨되면 한턱 쏘겠습니다. ㅋ
          
이충욱blue 2021-01
기대하겠습니다. ^^
저도 활용하는 엑셀 로또군요 ㅋㅋㅋ
전 그냥 중복 x회 되는 번호들로 뽑아서도 해보고
그냥도 돌려보고 했는데
역시 로또는 로똡니다 ^^
운빨이 망통이라 몇달간 꽝입니다
로그인 하시면 댓글을 남길 수 있습니다


QnA
쓰기
제목Page 1680/5712
2014-05   5169367   1 정은준1
2015-12   1703489   1  백메가
2018-02   4070   1 김건우
2018-06   4071   1 monet
2015-12   4071   1 김건우
2018-03   4071   1 김건우
2014-11   4071   1 silverwing
2019-07   4071   1 김훈1
2014-11   4071   1 바르톡
2016-02   4071   1 오준호5
2018-08   4071   1 susemi
2017-02   4071   1 뽀뽀중
2023-01   4071   1 피터퀼
2016-06   4071   1 마법사당87
2020-09   4071   1  화정큐삼
2016-01   4071   1 짱돌이
2014-10   4071   1  대한민국
2016-07   4071   1 김훈1
2015-06   4071   1  황진우
2017-01   4071   1  HEUo김용민
2015-12   4071   1 엄마야누나…
2015-12   4071   1 Booraltak
목록
쓰기