TextJoin 대체 함수 VBA 작성법좀 도와주세요.

VBA
작성자
옛꼬망
작성일
2021-01-22 13:37
조회
53

아래와 같이 한 셀의 학생(누가기록 C열 )이 기준셀(교과반!C7)의 학생과 동일한 학생인지 확인하고 같은지 확인하고 /

같다면 학생의 활동(누가기록 F열)을 한꺼번에 합쳐서 보여주고 싶어요. 아래처럼 노가다 해보려고해는데 데이타가 1000줄이 넘어서요.

TextJoin쓰면 쉽지만 2016버젼에서도 작동하게 만들고싶어요.  For each 문 쓰면 가능할거같은데 고수분들 도와주세요.

 

=CONCATENATE(IF(tbl누가기록[@학생명]=교과반1!C7,tbl누가기록[@[생기부 입력사항]],""),IF(누가기록!$C$8=교과반1!C7,누가기록!$F$8,""),IF(누가기록!$C$9=교과반1!C7,누가기록!$F$9,""),IF(누가기록!$C$10=교과반1!C7,누가기록!$F$10,""),IF(누가기록!$C$11=교과반1!C7,누가기록!$F$11,""),IF(누가기록!$C$12=교과반1!C7,누가기록!$F$12,""),IF(누가기록!$C$13=교과반1!C7,누가기록!$F$13,""),IF(누가기록!$C$14=교과반1!C7,누가기록!$F$14,""),IF(누가기록!$C$15=교과반1!C7,누가기록!$F$15,""),IF(누가기록!$C$16=교과반1!C7,누가기록!$F$16,""),IF(누가기록!$C$17=교과반1!C7,누가기록!$F$17,""),IF(누가기록!$C$18=교과반1!C7,누가기록!$F$18,""),IF(누가기록!$C$19=교과반1!C7,누가기록!$F$19,""),IF(누가기록!$C$20=교과반1!C7,누가기록!$F$20,""),IF(누가기록!$C$21=교과반1!C7,누가기록!$F$21,""),IF(누가기록!$C$22=교과반1!C7,누가기록!$F$22,""),IF(누가기록!$C$23=교과반1!C7,누가기록!$F$23,""),IF(누가기록!$C$24=교과반1!C7,누가기록!$F$24,""),IF(누가기록!$C$25=교과반1!C7,누가기록!$F$25,""),IF(누가기록!$C$26=교과반1!C7,누가기록!$F$26,""),IF(누가기록!$C$27=교과반1!C7,누가기록!$F$27,""),IF(누가기록!$C$28=교과반1!C7,누가기록!$F$28,""),IF(누가기록!$C$29=교과반1!C7,누가기록!$F$29,""),IF(누가기록!$C$30=교과반1!C7,누가기록!$F$30,""),IF(누가기록!$C$31=교과반1!C7,누가기록!$F$31,""),IF(누가기록!$C$32=교과반1!C7,누가기록!$F$32,""),IF(누가기록!$C$33=교과반1!C7,누가기록!$F$33,""),IF(누가기록!$C$34=교과반1!C7,누가기록!$F$34,""),IF(누가기록!$C$35=교과반1!C7,누가기록!$F$35,""),IF(누가기록!$C$36=교과반1!C7,누가기록!$F$36,""),IF(누가기록!$C$37=교과반1!C7,누가기록!$F$37,""),IF(누가기록!$C$38=교과반1!C7,누가기록!$F$38,""),IF(누가기록!$C$39=교과반1!C7,누가기록!$F$39,""),IF(누가기록!$C$40=교과반1!C7,누가기록!$F$40,""))

 

 

회원등급 : 새싹등급
포인트 : 95 EP
총질문 : 1 개 (마감율 : 100%)
채택답변 : 0 개
전체 2

  • 2021-01-22 14:33
    채택된 답변

    아래 프로시저를 입력해서 사용해보세요.

    Public Function SCell(mc_rng As Range, strPut As String) As String
    
    If mc_rng.Cells.Count > 1 Then
        Dim curCell As Range, strTemp As String
        strTemp = ""
        For Each curCell In mc_rng
            If curCell = "" Then
            strTemp = strTemp & curCell
            Else
            strTemp = strTemp & curCell & strPut
            End If
        Next curCell
        strTemp = Left(strTemp, Len(strTemp) - Len(strPut))
        SCell = strTemp
    Else
        SCell = "2개 이상 셀을 선택해 주세요"
    End If
    
    End Function

     

    결과같은 아래와 같습니다.


  • 2021-01-22 14:36

    =IFERROR(SCell(B2:C2," ★ "),"")

    =SCell(B9:C9,"")

    이런식으로 마음대로 응용해서 사용해도 됩니다.


전체 2,488
번호 카테고리 제목 작성자 작성일 추천 조회
2479 VBA
New VBA 질문
M5 | 02:57 | 추천 0 | 조회 3
M5 02:57 0 3
2478 기능/도구
New DuTool 설치시 오류 문의드립니다.
반짝반짝 | 2021.03.04 | 추천 0 | 조회 5
반짝반짝 2021.03.04 0 5
2477 VBA
New 네이버부동산 크롤링
웃음 | 2021.03.04 | 추천 0 | 조회 8
웃음 2021.03.04 0 8
2476 함수/공식
New small함수로 작은수를 찾은 뒤 그에 상응하는 옆셀 불러오기 질문합니다. 첨부파일 (1)
솔솔 | 2021.03.04 | 추천 0 | 조회 14
솔솔 2021.03.04 0 14
2475 함수/공식
New 조건이 있는 중복된 값들의 개수 셀수 있을까요? (1)
dasdas | 2021.03.04 | 추천 1 | 조회 20
dasdas 2021.03.04 1 20
2474 VBA
New 같은이름 다른파일의 데이터 복사 붙이기 첨부파일
H.B | 2021.03.04 | 추천 1 | 조회 20
H.B 2021.03.04 1 20
2473 파워쿼리/피벗
New 파워쿼리 편집기 날짜 및 시간 (10진수) 2 첨부파일 (1)
JaeChoi | 2021.03.04 | 추천 0 | 조회 23
JaeChoi 2021.03.04 0 23
2472 함수/공식
New 9.4512E+15 식으로 발생되는 건들에 대하여 어떻게 하면 정상적으로 숫자가 나올까요? (3)
mo**** | 2021.03.04 | 추천 0 | 조회 32
mo**** 2021.03.04 0 32
2471 함수/공식
New 중복된걸 제외하고 셀수 있는 방법이 있어까요? (2)
dasdas | 2021.03.04 | 추천 0 | 조회 34
dasdas 2021.03.04 0 34
2470 VBA
New 에러가 생기면 코드 실행을 멈추고 싶은데 어떡하면 좋을까요? (1)
cyi | 2021.03.04 | 추천 0 | 조회 17
cyi 2021.03.04 0 17
2469 문서서식
New 엑셀 표를 PPT로 불러왔을때 선 굵기 관련 건 (1)
운영자동차 | 2021.03.04 | 추천 0 | 조회 22
운영자동차 2021.03.04 0 22
2468 VBA
New 아웃룩 첨부파일 저장 시 파일제목 (1)
KDHkm | 2021.03.04 | 추천 0 | 조회 11
KDHkm 2021.03.04 0 11
2467 VBA
New 혹시 2007에서 2010과 같은 스크린샷 vba는 없나여? (1)
손님 | 2021.03.04 | 추천 0 | 조회 16
손님 2021.03.04 0 16
2466 함수/공식
New 두가지 DATA를 비교하여 없는 값 불러오기 첨부파일
Jeff | 2021.03.04 | 추천 0 | 조회 29
Jeff 2021.03.04 0 29
2465 차트/그래프
New 간트에서 선행업무와 연결하는 방법 (1)
라이언 | 2021.03.04 | 추천 0 | 조회 18
라이언 2021.03.04 0 18
2464 함수/공식
New xFilter 함수 기능 설치 (1)
서강국 Noah | 2021.03.04 | 추천 0 | 조회 15
서강국 Noah 2021.03.04 0 15
2463 VBA
New [VBA] 고유값을 순번이 아닌 특정한 값으로 사용하는 방법이 궁금합니다. (1)
u*** | 2021.03.04 | 추천 0 | 조회 14
u*** 2021.03.04 0 14
2462 문서서식
New 출퇴근명부만들기_요일에 색깔넣기 오류_질문입니다. 첨부파일 (4)
반짝반짝 | 2021.03.04 | 추천 0 | 조회 31
반짝반짝 2021.03.04 0 31
2461 함수/공식
New 하이퍼링크로 셀 이동하기 관련 질문.
푸른나래 | 2021.03.03 | 추천 0 | 조회 25
푸른나래 2021.03.03 0 25
2460 기능/도구
New 같은 파일 같은 시트에 있는 많은 데이터를 10개 씩 묶어서 저장하는 방법이 있나요? (1)
이경호 | 2021.03.03 | 추천 0 | 조회 14
이경호 2021.03.03 0 14
2459 대시보드
New 대시보드 인쇄문제 (1)
skyblue**** | 2021.03.03 | 추천 0 | 조회 17
skyblue**** 2021.03.03 0 17
2458 기능/도구
New 직원들간 업무 공유가 가능한가요? (4) 답변완료
건평 | 2021.03.03 | 추천 0 | 조회 39
건평 2021.03.03 0 39
2457 파워쿼리/피벗
New 쿼리,피벗 기본 서식을 변경할 수 있나요? (1)
Kampi Krein | 2021.03.03 | 추천 0 | 조회 23
Kampi Krein 2021.03.03 0 23
2456 피벗테이블
New 엑셀 정리 관련 질문 첨부파일 (1)
hashm**** | 2021.03.03 | 추천 0 | 조회 37
hashm**** 2021.03.03 0 37
2455 함수/공식
New [수식] 간단한 수식관련 질문인데요. (1) 답변완료
가람 | 2021.03.03 | 추천 0 | 조회 38
가람 2021.03.03 0 38
2454 함수/공식
New 자동으로 범위를 지정하여 합계 구하는 공식 첨부파일 (1)
벗님들 | 2021.03.03 | 추천 0 | 조회 33
벗님들 2021.03.03 0 33
2453 함수/공식
New [정말 급합니다 ㅠㅠ] 리스트 클릭 시 상세 내역이 보였으면 합니다. 첨부파일 (2) 답변완료
박이안 | 2021.03.03 | 추천 1 | 조회 70
박이안 2021.03.03 1 70
2452 함수/공식
New 월별 입출고 누적 수량 문의 첨부파일 (2)
excel009 | 2021.03.03 | 추천 0 | 조회 39
excel009 2021.03.03 0 39
2451 함수/공식
New 월별 입출고 누적 수량 문의 첨부파일 (2) 답변완료
excel009 | 2021.03.03 | 추천 0 | 조회 52
excel009 2021.03.03 0 52
2450 함수/공식
New SUMPRODUCT/OFFSET 관련 문제 첨부파일 (2)
슬리드 | 2021.03.03 | 추천 0 | 조회 42
슬리드 2021.03.03 0 42