|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전: 2010
안녕하세요
엑셀로 만든 구문 첫행 분리 질문입니다.
엑셀로 만든 문구를 다듬는데에 이 과정을 함수구문으로 또는 다른 매크로방식이라든지로 자동화 하고 싶습니다.
(엑셀파일이 업로드가 안되네요.;;)
첫행을 분리하는 방법이 있을까요?
ex)
애국가
애국가愛國歌)는 대한민국의 국가이다. 가사의 작사자는 윤치호 또는 안창호로 추정되며, 1919년 안창호에 의해 대한민국 임시정부에서 스코틀랜드 민요인 〈올드 랭 사인〉에 삽입해서 부르기 시작하다가 1935년 한국의 작곡가 안익태가 지은 《한국환상곡》에 가사를 삽입해서 현재까지 부르고 있다....(중략)
작사
애국가의 가사는 1900년대초에 쓰였으며, 작사자는 공식적으로는 미상이라고 적혀있다. 작사자에 대한 설은 크게 윤치호라는 설과 안창호라는 설 두 가지가 있다. ......(중략)
>>>>>>>>>>>>>>결과>>>>>>>>>>>
애국가
애국가愛國歌)는 대한민국의 국가이다. 가사의 작사자는 윤
치호 또는 안창호로 추정되며, 1919년 안창호에 의해 대한민
국 임시정부에서 스코틀랜드 민요인 〈올드 랭 사인〉에 삽
입해서 부르기 시작하다가 1935년 한국의 작곡가 안익태가
지은 《한국환상곡》에 가사를 삽입해서 현재까지 부르고 있
다....(중략)
작사
애국가의 가사는 1900년대초에 쓰였으며, 작사자는 공식적으
로는 미상이라고 적혀있다. 작사자에 대한 설은 크게 윤치호
라는 설과 안창호라는 설 두 가지가 있다. ......(중략)
위의 상황 처럼
1. 일정 행(1행)이상의 공백을 가진 후 "애국가", "작사"와 같은 제목을 가진 문구가 시작 됩니다.
2. "애국가", "작사"와 같은 제목만 1행 앞으로 가져오고 싶습니다.
많은 도움을 항상 얻고 갑니다.
엑셀 업로드가 안되는점 양해부탁드립니다.
감사합니다.!!
==============[이동훈님 글에 대한 답변입니다]==============
아래 VBA를 모둘에 복사해서 넣고
해당데이터를 선택후, userSplit메크로 실행하시면 될 것 같네요...
Sub userSplit()
Dim rData As Range
Dim sTemp As String
Dim iP As Integer, iX As Integer
If TypeName(Selection) <> "Range" Then Exit Sub
If Selection.Columns.Count > 1 Then Exit Sub
Set rData = Selection
If rData.Column = 1 Then rData.EntireColumn.Insert
rData.WrapText = True
For iX = rData.Rows.Count To 1 Step -1
With rData.Cells(iX)
sTemp = .Value
iP = InStr(sTemp, Chr(10))
If iP > 0 Then
.EntireRow.Insert
.Offset(-1, -1) = Trim(Left(sTemp, iP - 1))
.Value = Trim(Mid(sTemp, iP + 1))
End If
End With
Next
End Sub
|
|