나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 한백 (hanbak6)

추천:  2
파일:     질문(31).jpg (22.2KB) 조회:  3688
제목:   엑셀 VBA로 문장연결시 줄바꿈하는 코드 도움요청
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(2007):

* 아래줄에 질문을 작성하세요 >>

엑셀에서 두 셀(A1, A2)의 내용을 하나로 연결할 때 
  (1) =A1 & A2  ----> A1과 A2의 내용이 한 문장으로 연결
  (2) = A1 &char(10) & A2 -------> A1과 A2 문장이 줄바꿈되어 연결

이 내용을 엑셀 VBA에서 구현해 보려고
     For i = 1 To 37
       For j = 1 To 31
         a(i) = a(i) & char(10) & n(i, j)
       Next j
       Cells(i + 5, 35) = t
     Next i
라고 썼더니

컴파일 오류입니다
Sub 또는 Function이 정의되지 않았습니다 

라는 오류가 발생합니다.
한 수 배우고 싶습니다.
 
[불량 게시물 신고]  
한백Dim mychar
mychar = Chr(10)
로 정의하고

For i = 1 To 29
  For j = 1 To 33
    If n(i, j) <> "" Then
      a(i) = a(i) & mychar & n(i, j)
    Else
    End If
  Next j
  Cells(i + 5, 35) = t
Next i
이렇게 고치니 해결은 됐네요~~
01-30 (01:41)
삭제 ■신고
        
  

작성일 : 2017-01-30(00:05)
최종수정일 : 2017-01-30(00:05)