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

VBA

작성자

옛꼬망

작성일

2021-01-22 13:37

조회

아래와 같이 한 셀의 학생(누가기록 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

이하늘

[채택답변: 9개]

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