하나의 줄 바꿈으로 여러 줄 바꿈을 대체하는 방법

Question

이 셀은 단일 셀로 묶여 있습니다. 제 보고서 서식 목적

This 
is 



a 




bad dream 

, 난 여러 줄 바꿈 줄일 필요가있다. 2 줄 사이에 2 줄 넘는 줄 바꿈이있을 때마다 정확하게 2 줄 바꿈으로 바꿔야합니다. 따라서 데이터는 다음과 같아야합니다.

This 
is 

a 

bad dream 

저는 Excel 스크립팅의 초보자입니다. 대체 기능을 사용했지만 올바른 결과를 얻을 수 없었습니다.

대신 사용할 수 있습니까?

Answer 1

2 개의 줄 사이에 2 줄 넘는 줄 바꿈이있을 때마다 정확하게 2 줄 바꿈으로 바꿔야합니다.

사용이 작은 기능 :

Function customSubstitute(myStr As String) As String 
    customSubstitute = myStr 
    Do While InStr(1, customSubstitute, Chr(10) & Chr(10) & Chr(10)) 
     customSubstitute = Replace(customSubstitute, Chr(10) & Chr(10) & Chr(10), Chr(10) & Chr(10)) 
    Loop 
End Function