본문 바로가기
VBA/365 FUNCTION

[365함수] 병합풀기도 한방에 고고

by 일등미노왕국 2024. 2. 17.

예전 vba 포스팅에서 많이 했던 병합된 셀을 푸는 문제를 365 함수로 구성해 보았다.

 

TEXTSPLIT함수로 해당 행을 줄바꿈 [ CHAR(10) ] 을 구분자로 하여 텍스트를 분리한 후 그것들을 병렬로 배치한 후 하나씩 행방향으로 쌓아올리면 된다.

 

=LAMBDA(tbl,

DROP(
    REDUCE("",tbl,
          LAMBDA(a,b,
          VSTACK(a,
                 HSTACK(TEXTSPLIT(b,,CHAR(10)),TEXTSPLIT(OFFSET(b,,1),,CHAR(10))
           ))))
    ,1)

)(E3:E6)

 

병합셀을 풀 영역의 전체가 아닌 한 열만 잡은 후 REDUCE함수로 전달된 행을

HSTACK(TEXTSPLIT(b,,CHAR(10)),TEXTSPLIT(OFFSET(b,,1),,CHAR(10)))

 

HSTACK으로 병렬로 쌓은 후 VSTACK으로 하나씩 쌓아 올리면 된다..

 

그럼 이만...

 

365 병합풀기.xlsx
0.01MB

 

댓글