¿¢¼¿ Á¤·Ä Áú¹®ÀÔ´Ï´Ù

Àϱ¹   
   Á¶È¸ 3098   Ãßõ 0    

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

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

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

질문은 

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

아시는분 알려주세요.   미리 감사드립니다.





ªÀº±Û Àϼö·Ï ½ÅÁßÇÏ°Ô.
±èÁ¦¿¬ 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
¿À... Àß µÇ³×¿ä.  °¨»çÇÕ´Ï´Ù.
·Î¶Ç ´ç÷µÇ¸é ÇÑÅÎ ½î°Ú½À´Ï´Ù. ¤»
          
±â´ëÇÏ°Ú½À´Ï´Ù. ^^
Àúµµ È°¿ëÇÏ´Â ¿¢¼¿ ·Î¶Ç±º¿ä ¤»¤»¤»
Àü ±×³É Áߺ¹ xȸ µÇ´Â ¹øÈ£µé·Î »Ì¾Æ¼­µµ Çغ¸°í
±×³Éµµ µ¹·Áº¸°í Çߴµ¥
¿ª½Ã ·Î¶Ç´Â ·ÎŒd´Ï´Ù ^^
¿î»¡ÀÌ ¸ÁÅëÀ̶ó ¸î´Þ°£ ²ÎÀÔ´Ï´Ù


QnA
Á¦¸ñPage 810/5680
2014-05   4946460   Á¤ÀºÁØ1
2015-12   1483125   ¹é¸Þ°¡
2021-01   3157   ÇϴûçÀÚ
2018-08   2979   NAS°íÀå³µ´Ù¡¦
2018-09   4836   °øµµ¸®
2022-08   2191   ¹Ì¼ö¸Ç
04-05   1624   ȸ¿ø
2015-04   3637   »ßµ¹À̽½ÇÄÀÌ
2017-05   3550   º°À̹ÀÜ
2021-02   2344   ¾Ë¼ö¾ø´ÂÈû
2022-09   1952   Ulmo
2017-06   4383   ¼ÒÀ²¹Ù¶ó±â
2015-05   3370   ±è°Ç¿ì
2022-09   2042   ¾ØµåÀ¯Àú
2016-07   4608   º°¿¡¼­¿Â±×³à
2014-01   9446   À©µµ¿ì10
2011-09   9027   ¹æoÈ¿o¹®
2014-01   14839   ¹ü¹üÀÌ
2021-02   2526   ocarina
2022-10   1489   ÀÌÈñÁÖ
2015-05   4918   ¸¸»ç¿ÀÄÉÀÌ
2016-07   3910   ±èÀ±¼ú