나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 코알라 (sis0351)

추천:  2
파일:     조회:  1713
제목:   [RE]여러행의 자료를 한개의 행으로 재배열 하는 VBA 매크로코드
　 　 　
　 질문1)

Option Explicit

Sub Test_ko()
Dim AL   As Object
Dim R1   As Range
Dim R2   As Range
Dim s    As String
On Error Resume Next
Set AL = CreateObject("System.Collections.ArrayList")
    For Each R1 In Range("E5,J5,O5")
             For Each R2 In R1.CurrentRegion.SpecialCells(2, 3).Cells
                 s = CStr(R2.Value)
                 If Not AL.Contains(s) Then AL.Add s
             Next R2
    Next R1
    AL.Sort
    With Range("E10").Resize(, AL.Count)
        .CurrentRegion.Clear
        .Font.Size = 9
        .Font.Name = "굴림"
        .Borders.LineStyle = xlContinuous
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Value = AL.ToArray()
    End With
End Sub 		　
[불량 게시물 신고]  
칼펜정말 감사합니다...
08-11 (22:07)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2018-08-10(21:08)
최종수정일 : 2018-08-10(21:08)
　


 ◎ 관련글
  제 목   작성자   날짜
여러행의 자료를 한개의 행으로 재배열 하는 VBA 매크로코드 칼펜 2018-08-10
◎ [RE]여러행의 자료를 한개의 행으로 재배열 하는 VBA 매크로코드 코알라 2018-08-10
[RE]여러행의 자료를 한개의 행으로 재배열 하는 VBA 매크로코드 dew 2018-08-10