VBA - 캐리지 리턴 방법

이 작업은 상당히 쉬워야한다고 생각하지만 어려움을 겪고 있습니다. - 여러 캐리지 리턴으로 구분 된 데이터가있는 셀이 있습니다. 나는 항상 두 번째 데이터 라인을 원하지만 이걸 어떻게 풀 것인지 확실치 않습니다. 입력 다른 셀에서,VBA - 캐리지 리턴 방법

Line 1: This line can be any length 
Line 2: Same with this one 
Line 3: so on 
Line 4: and so forth 
Line 5: etc

감사 A1에서

제임스 데이터와

출처

2016-06-29 J. Taylor

분할을하고 배열의'1' 번째 요소에 액세스 :

은 VBA에서이 작업을 수행합니다. 'cet = Split (cells (1,1) .value, vbcrlf)'처럼하면'Msgbox cet (1)'은 두 번째 줄을 줄 것이다. – newguy

'vbCrlf'가 작동하지 않을 수 있습니다. 이 경우'Chr (10)':'Debug.Print Split (ThisWorkbook.Worksheets (1) .Range ("A1") .Value2, Chr (10)) (')'을 시도 할 수 있습니다. – Ralph

=TRIM(MID(SUBSTITUTE($A1,CHAR(10),REPT(" ",999)),2*999-998,999))

이 경우, 데이터의 예는 다음과 같다 작동하지 않는다면,를 사용하십시오.. 이 VbCrlf``사용

Public Function SecondLine(s As String) As String 
    s = Replace(s, Chr(13), Chr(10)) 
    s = Replace(s, Chr(10) & Chr(10), Chr(10)) 
    SecondLine = Split(s, Chr(10))(1) 
End Function

출처

2016-06-29 14:58:31

'vbNewLine'이 작동하지 않습니까? –

@ Mat'sMug ** ** 작업 할 수 있습니다 ............... 워크 시트에 자료를 붙여 넣는 경우 * ASCII10 * 또는 * ASCII13 * 또는 심지어 둘 다 ......... VBA는 어느 쪽이든 작동해야합니다. –

VBA - 캐리지 리턴 방법

답변

관련 문제