|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):2010
* 아래줄에 질문을 작성하세요 >>
한 셀에 ALTER+TENTER 로 줄바꿈 한 것을 제거 후에 다음 행으로 데이터가 분리되게 하고 싶습니다. 가능할까요?ㅠㅠ
예)
-------------------- --------------------
A | B | C | D A | B | C | D
-------------------- --------------------
가 | 나 | 다 | 바 --> 가 | 나 | 다 | 바
| | 라 | 사 --------------------
| | 마 | 아 | | 라 | 사
-------------------- --------------------
| | 마 | 아
---------------------
==============[룽님 글에 대한 답변입니다]==============
첨부화일 참조하세요...
Sub SplitNextLineRow()
Dim sht As Worksheet, shtTg As Worksheet
Dim lRow As Long, lEndRow As Long
Dim iCol As Long, lTgRow As Long
Dim iCnt As Integer, iX As Integer
Dim vText
Dim vData
Set sht = ActiveSheet
lEndRow = sht.Cells(Rows.Count, 1).End(xlUp).Row
Set shtTg = Worksheets.Add(After:=sht)
sht.Activate
For lRow = 1 To lEndRow
lTgRow = lTgRow + 1
iCnt = 0
For iCol = 1 To 4
vText = Split(sht.Cells(lRow, iCol), vbLf)
If iCnt < UBound(vText) Then iCnt = UBound(vText)
For iX = 0 To UBound(vText)
shtTg.Cells(lTgRow + iX, iCol) = vText(iX)
Next
Next
lTgRow = lTgRow + iCnt
Next
With shtTg.Cells(1).CurrentRegion
.Rows(1).Interior.ColorIndex = sht.Cells(1).Interior.ColorIndex
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlCenter
End With
End Sub
|
|