|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): excel 2016
* 아래줄에 질문을 작성하세요 >>
첨부된 파일과 같이 A2~A6의 값을 B2~B6와 같이 만들고 싶습니다
셀 하나에 줄바꿈으로 나열 된 값 중, 특정문자를 포함하고 있는 줄바꿈행 전체를 제거하고 싶습니다.
혼자 해결방법으로 줄바꿈의 값들을 각각의 셀로 나눈뒤 특정문자를 포함한 셀을 제거 후 다시 셀하나에 줄바꿈으로 취합시키는 방법을 생각했지만
VBA 작성방법을 알 수 있을까요?
==============[표일환님 글에 대한 답변입니다]==============
Sub UserReplace()
Dim rData As Range, rX As Range
Dim sTmp As String
Dim vTmp, vX
Dim iX As Integer, iY As Integer
Set rData = ActiveSheet.Range("A2:A6")
For Each rX In rData.Cells
vTmp = Split(rX.Value, vbLf)
For iX = LBound(vTmp) To UBound(vTmp)
For iY = 1 To Len(vTmp(iX))
If Mid(vTmp(iX), iY, 1) Like "[0-9]" Then
vTmp(iX) = ""
Exit For
End If
Next
Next
sTmp = ""
For Each vX In vTmp
If vX <> "" Then sTmp = sTmp & vbLf & vX
Next
rX.Offset(0, 1) = Mid(sTmp, 2)
Next
End Sub
|
|