핸드폰번호 하이픈 제거하는데 앞 0 값이 사라지는데 어떻게 하나요?

VBA
작성자
수메리안
작성일
2022-05-12 16:26
조회
66
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

핸드폰번호에서 하이픈을 제거하는 앞 0값이 사라집니다.

 

Sub 핸드폰하이픈제거()
'//하이픈제거
Dim OutputSt As Worksheet
Dim i As Integer

Set OutputSt = ThisWorkbook.Worksheets("출고")
OutputSt.Range("H1").Value = "전화번호"
TotalOutCount = OutputSt.Cells(Rows.Count, "B").End(xlUp).Row
'// substitute 적용
For i = 2 To TotalOutCount
OutputSt.Cells(i, 8) = WorksheetFunction.Substitute(OutputSt.Cells(i, 2), "-", "")
Next
End Sub

결과가

거래처명 전화번호 우편번호 주소 수량 품목 전화번호
신군고기 010-6877-4859 서울특별시 관악구 신림로140-6 (신림동) 1층 2 명이나물(특A) 1068774859

0이 사라집니다.

고수님들의 도움을 요청드립니다~

 

회원등급 : 4레벨
포인트 : 219 EP
총질문 : 8 개 (마감율 : 100%)
채택답변 : 0 개
전체 5

  • 2022-05-12 16:28
    채택된 답변
    OutputSt.Cells(i, 8) = Format(WorksheetFunction.Substitute(OutputSt.Cells(i, 2), "-", ""),"00000000000")

    이렇게 바꿔보세요


    • 2022-05-12 17:02

      @엑셀은즐거워 님 감사합니다~^^)/

      정말 큰 도움이 되었습니다~


    • 2022-05-12 17:33

      @엑셀은즐거워 님 Sub 핸드폰하이픈제거()
      '//하이픈제거
      Dim OutputSt As Worksheet
      Dim i As Integer
      Set OutputSt = ThisWorkbook.Worksheets("출고")
      OutputSt.Range("G1").Value = "전화번호"
      TotalOutCount = OutputSt.Cells(Rows.Count, "B").End(xlUp).Row
      '// substitute 적용
      For i = 2 To TotalOutCount
      OutputSt.Cells(i, 7) = Format(WorksheetFunction.Substitute(OutputSt.Cells(i, 2), "-", ""), "00000000000")

      한번 되었는데, 다시 맨앞의 0이 나타나지 않네요^^;;

      어찌해야 될까요?
      Next

      End Sub


      • 2022-05-12 18:12

        @수메리안 님 OutputSt.Cells(i, 7) = Format(WorksheetFunction.Substitute(OutputSt.Cells(i, 2), "-", ""), "'00000000000")

        숫자 형식때문에 그런 것 같아보입니다.. 앞에 어퍼스트로피를 한번 붙여보세요


        • 2022-05-13 09:44

          @엑셀은즐거워 님 아하, 그러네요^^

          감사합니다, 정말 고수시네요~~:-)

          즐거운 하루되세요^^


전체 6,461
번호 카테고리 제목 작성자 작성일 추천 조회
알림
📑 MS에서 특별한 라이브를 진행합니다! - 애저 SQL-엑셀 실시간 연동 프로그램 만들기!
오빠두엑셀 | 2022.05.24 | 추천 2 | 조회 84
오빠두엑셀 2022.05.24 2 84
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (65)
오빠두엑셀 | 2021.10.28 | 추천 80 | 조회 4485
오빠두엑셀 2021.10.28 80 4485
34387 VBA
New 개별공시지가조회 셀레니움 첨부파일
나야 | 10:50 | 추천 0 | 조회 6
나야 10:50 0 6
34378 기능/도구
New 특정 글자의 데이터만 따로 분리할 수 있는 방법이 있을까요? (3) 답변완료
dfgkdflglkdf | 01:08 | 추천 -1 | 조회 37
dfgkdflglkdf 01:08 -1 37
34376 VBA
New VBA 동적 범위 테두리 만들기 첨부파일
라바 | 2022.05.24 | 추천 -1 | 조회 28
라바 2022.05.24 -1 28
34372 VBA
New VBA Do until loop 문중에서 출하지시서 코드를 빌려 짜는데.. 한계가 왔습니다. 첨부파일 (2)
pk2616 | 2022.05.24 | 추천 0 | 조회 28
pk2616 2022.05.24 0 28
34369 기능/도구
New 하이퍼링크 (1)
쎄이 | 2022.05.24 | 추천 0 | 조회 19
쎄이 2022.05.24 0 19
34367 VBA
New 짝수 페이지 로고 크기 변경 매크로를 어떻게 만들어야 할까요? 첨부파일
꽁냐리 | 2022.05.24 | 추천 0 | 조회 19
꽁냐리 2022.05.24 0 19
34365 VBA
New 정해진 양식에 여러 부서에서 부분부분 작성된 자료를 취합하는 방법이 궁금합니다. 첨부파일 (3)
nam**** | 2022.05.24 | 추천 -1 | 조회 30
nam**** 2022.05.24 -1 30
34364 함수/공식
New 엑셀 if수식 문의 드립니다. (1)
달려라탁구 | 2022.05.24 | 추천 0 | 조회 31
달려라탁구 2022.05.24 0 31
34361 함수/공식
New "06w 2"에서 "2"만 추출하여 총합을 구하는 방법 첨부파일 (1) 답변완료
forest choi | 2022.05.24 | 추천 0 | 조회 39
forest choi 2022.05.24 0 39
34360 함수/공식
New 특정 셀만 기입하게 할 수 있을까요? (셀 잠금 말고) 첨부파일
신지영 | 2022.05.24 | 추천 0 | 조회 31
신지영 2022.05.24 0 31
34356 함수/공식
New 날짜(월) 계산하는 문제 관련 (5) 답변완료
nowhs | 2022.05.24 | 추천 1 | 조회 45
nowhs 2022.05.24 1 45
34350 함수/공식
New 강의별 출석부를 만들고 싶어요 첨부파일 (2) 답변완료
Blak case | 2022.05.24 | 추천 0 | 조회 50
Blak case 2022.05.24 0 50
34348 기능/도구
New 다른 통합 문서로 시트 복사시 함수 파일명 관련 (4) 답변완료
허경일 | 2022.05.24 | 추천 0 | 조회 35
허경일 2022.05.24 0 35
34345 파워쿼리/피벗
New 각 테이블 마다 중복제거관련 (12) 답변완료
엑셀지킴이 | 2022.05.24 | 추천 0 | 조회 51
엑셀지킴이 2022.05.24 0 51
34341 기능/도구
New 엑셀 시트 글자크기 및 사이즈 조정 되나요?
DOUKCHEON 이재형 | 2022.05.24 | 추천 0 | 조회 30
DOUKCHEON 이재형 2022.05.24 0 30
34340 함수/공식
New 여러개의 열에 만족하는 값 구하기 (4) 답변완료
프래이야 | 2022.05.24 | 추천 0 | 조회 45
프래이야 2022.05.24 0 45
34338 문서서식
New 선택한 셀 절대값으로 한번에 바꾸는 방법 (2)
DOUKCHEON 이재형 | 2022.05.24 | 추천 0 | 조회 44
DOUKCHEON 이재형 2022.05.24 0 44
34337 구글시트
New 발주대비 입고일자를 카운팅 하고싶습니다. (2) 답변완료
김성민 | 2022.05.24 | 추천 0 | 조회 35
김성민 2022.05.24 0 35
34336 VBA
New 다른 시트의 두 셀 연동
kido**** | 2022.05.24 | 추천 0 | 조회 39
kido**** 2022.05.24 0 39
34334 VBA
New VBA 검색창을 만들었는데 엔터가 되지 않습니다..! (2)
김수달 | 2022.05.24 | 추천 0 | 조회 42
김수달 2022.05.24 0 42
34332 구글시트
New 2개의 조건을 충족하는 조건 값을 다른 시트에서 끌어 올려면 어떻게 해야 할까요? (1)
흰별이 | 2022.05.24 | 추천 0 | 조회 26
흰별이 2022.05.24 0 26
34330 함수/공식
New 엑셀에 수식 합치기 기능이 있을까요? 첨부파일 (2)
크미누크르 | 2022.05.24 | 추천 0 | 조회 55
크미누크르 2022.05.24 0 55
34328 차트/그래프
New 방문하는 고객 누적막대그래프 및 최저, 최고 방문객 매장 리스트 첨부파일 (2)
사막여우 | 2022.05.23 | 추천 0 | 조회 32
사막여우 2022.05.23 0 32
34326 문서서식
New 오빠두 강의 중 마우스 형관펜 기능에 대해서 질문드립니다.
월마리아 | 2022.05.23 | 추천 0 | 조회 28
월마리아 2022.05.23 0 28
34324 문서서식
New 하이퍼링크 셀 선택 첨부파일 (2) 답변완료
쎄이 | 2022.05.23 | 추천 0 | 조회 35
쎄이 2022.05.23 0 35
34322 기능/도구
New 시트 갈때마다 맨위로 이동시키는 방법 (1)
naver_60f182128c054 | 2022.05.23 | 추천 0 | 조회 35
naver_60f182128c054 2022.05.23 0 35
34318 대시보드
New 생일명단 및 육아휴직명단 추출 첨부파일 (3) 답변완료
사막여우 | 2022.05.23 | 추천 0 | 조회 59
사막여우 2022.05.23 0 59
34311 문서서식
New [조건부서식] 기초 질문 첨부파일 (1)
일신우일신J | 2022.05.23 | 추천 0 | 조회 34
일신우일신J 2022.05.23 0 34
34310 VBA
New 세로 블록 쌓기 데이터를 보고서 형식으로 만드는 방법 좀 알려주세요. (4) 답변완료
silverf**** | 2022.05.23 | 추천 0 | 조회 51
silverf**** 2022.05.23 0 51
34307 함수/공식
New 수식 미입력 오류 문의 (2)
wh**** | 2022.05.23 | 추천 0 | 조회 39
wh**** 2022.05.23 0 39