** 이 게시판은 댓글이 달리면 게시물을 삭제할 수 없습니다. **
** 내용의 장기노출이 곤란한 경우 [수정]을 통해 내용을 변경하시기 바랍니다. **
요 근래 엑셀 작업하다보면 위와 같은 남자표기? 화살표? 같은 문자가 계속 발생해서 제대로 데이터 취합이 힘든 상태입니다.
이건 검색하려고 해도 복사도 뭐도 안되고, 검색하려해도 글자가 보이지 않는걸로 표기 되어서 답답한데,
혹시 이거 일괄적으로 삭제 하는 방법 아시는 분은 알려주시면 감사하겠습니다.
만약에 위와같이 00-0-00 뒤에만 있다면 데이터 → 텍스트 나누기 → 너비가일정함
으로 가능하지 않을까요??
본인이 위와 같이 입력을 하지 않았는데 계속 나오는 경우라면 어떤 매크로나 함수를 지정하지 않았나 생각을 합니다.
특수문자는 아닙니다. 특수문자라면 복사하고 붙여넣기가 되야하는데 그거 안 되거든요;
특수문자는 맞는데요.
셀서식을 이용한 특수문자를 입력하게 만든 것입니다.
그래서 별도로 삭제를 할 수 없습니다.
엑셀파일 셀서식 또는 매크로 한번 보세요.
일단 다른 프로그램 통해서 지우는 방법을 통해야 할 거 같습니다. 답변 감사드립니다.
텍스트 에디터 진행이 제일 좋을듯 합니다.
전체 셀을 선택해서 복사하기 그리고 다른 시트에 골라 붙이기에서 값만 선택을 해보세요.
이거 쓰면 지워져요
줄바꿈은 구문보면서 알아서....딱봐도 끝나는 지점이 보일거에요
클리앙은 붙여넣기하면 저리되네요 -ㅅ-;;;
Private Sub Del_Ascii()'단축키 Ctrl+Shift+Del'음표문자, 유령문자를 지웁니다.Dim rngDb As Range, rngEach As RangeDim varTemp As VariantDim lngI As Long, lngJ As LongOn Error GoTo Err_StepApplication.EnableCancelKey = xlErrorHandlerIf Selection.Cells.Count = 1 ThenSet rngDb = ActiveSheet.UsedRangeElseSet rngDb = SelectionEnd IfIf MsgBox("음표, 유령, 전각문자를 삭제합니다.", vbInformation + vbYesNo) = vbNo ThenExit SubEnd IfApplication.ScreenUpdating = FalseWith rngDb.Replace What:=ChrW(13), Replacement:=vbNullString, LookAt:=xlPart.Replace What:=ChrW(160), Replacement:=" "End WithSet rngDb = Intersect(rngDb.SpecialCells(xlCellTypeVisible), _rngDb.SpecialCells(xlCellTypeConstants))For Each rngEach In rngDb.AreasvarTemp = rngEach.ValueIf IsArray(varTemp) ThenFor lngI = 1 To UBound(varTemp, 1)For lngJ = 1 To UBound(varTemp, 2)varTemp(lngI, lngJ) = StrConv(varTemp(lngI, lngJ), vbNarrow)Next lngJNext lngIElsevarTemp = StrConv(varTemp, vbNarrow)End IfrngEach = varTempNext rngEachApplication.ScreenUpdating = TrueMsgBox "음표,유령, 전각문자를 제거하였습니다.", vbInformationErr_Step:If Err.Number = 18 ThenMsgBox "사용자에 의해 취소되었습니다.", vbInformationEnd IfApplication.OnRepeat "", ""End Sub
그냥 잠시 두고보면 이상없을거에요