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

 dew (dewdrop)

추천:  2
파일:     조회:  1763
제목:   [RE]vba 조건에 맞는 배열값 옮기기
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(2010):

* 아래줄에 질문을 작성하세요 >>
오래간만에 할려니까 도무지 로직이 안돌아 가서 질문을 해봅니다.
그림에 보듯이 A배열의 행열값이 B배열의 값을 참조 순환 하면서 같은 값이면 A배열의 값을 B배열의 같은값 아래 에 넣는 방법에 대해서
도움을 받고자 합니다.
==============[선샤인님 글에 대한 답변입니다]==============

아래 사용자 정의함수을 이용하세요

A2:K2을 선택하여 야해 수식을 배열수식으로 입력
{ =getResult($A$1:$K$1, $M2:$R2) }


Function getResult(rData As Range, rT As Range)
    Dim vData, vT
    Dim vResult() As String
    Dim iX As Integer, iY As Integer
    
    Application.Volatile
    vData = rData.Value
    vT = rT.Value
    ReDim vResult(1 To UBound(vData, 2))
    
    For iX = 1 To UBound(vT, 2)
        For iY = 1 To UBound(vData, 2)
            If vT(1, iX) = vData(1, iY) Then
                vResult(iY) = vT(1, iX)
            End If
        Next
    Next
    getResult = vResult
End Function

 		　
[불량 게시물 신고]  
 　  　  　
  

작성일 : 2019-12-16(11:20)
최종수정일 : 2019-12-16(11:20)
　


 ◎ 관련글
  제 목   작성자   날짜
vba 조건에 맞는 배열값 옮기기 선샤인 2019-12-14
◎ [RE]vba 조건에 맞는 배열값 옮기기 dew 2019-12-16