핸드폰번호 하이픈 제거하는데 앞 0 값이 사라지는데 어떻게 하나요?
VBA
작성자
수메리안
작성일
2022-05-12 16:26
조회
66
핸드폰번호에서 하이픈을 제거하는 앞 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이 사라집니다.
고수님들의 도움을 요청드립니다~
전체 6,461
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
📑 MS에서 특별한 라이브를 진행합니다! - 애저 SQL-엑셀 실시간 연동 프로그램 만들기!
![]() ![]() |
![]() ![]() |
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 |
34378 | 기능/도구 |
New 특정 글자의 데이터만 따로 분리할 수 있는 방법이 있을까요?
(3)
답변완료
![]() |
![]() |
01:08 | -1 | 37 |
34376 | VBA |
New VBA 동적 범위 테두리 만들기
![]() ![]() |
![]() |
2022.05.24 | -1 | 28 |
34372 | VBA |
New VBA Do until loop 문중에서 출하지시서 코드를 빌려 짜는데.. 한계가 왔습니다.
![]() ![]() |
![]() |
2022.05.24 | 0 | 28 |
34369 | 기능/도구 |
New 하이퍼링크
(1)
![]() |
![]() |
2022.05.24 | 0 | 19 |
34367 | VBA |
New 짝수 페이지 로고 크기 변경 매크로를 어떻게 만들어야 할까요?
![]() ![]() |
![]() |
2022.05.24 | 0 | 19 |
34365 | VBA |
New 정해진 양식에 여러 부서에서 부분부분 작성된 자료를 취합하는 방법이 궁금합니다.
![]() ![]() |
![]() |
2022.05.24 | -1 | 30 |
34364 | 함수/공식 |
New 엑셀 if수식 문의 드립니다.
(1)
![]() |
![]() |
2022.05.24 | 0 | 31 |
34361 | 함수/공식 |
New "06w 2"에서 "2"만 추출하여 총합을 구하는 방법
![]() ![]() |
![]() |
2022.05.24 | 0 | 39 |
34360 | 함수/공식 |
New 특정 셀만 기입하게 할 수 있을까요? (셀 잠금 말고)
![]() ![]() |
![]() |
2022.05.24 | 0 | 31 |
34356 | 함수/공식 |
New 날짜(월) 계산하는 문제 관련
(5)
답변완료
![]() |
![]() |
2022.05.24 | 1 | 45 |
34350 | 함수/공식 |
New 강의별 출석부를 만들고 싶어요
![]() ![]() |
![]() |
2022.05.24 | 0 | 50 |
34348 | 기능/도구 |
New 다른 통합 문서로 시트 복사시 함수 파일명 관련
(4)
답변완료
![]() |
![]() |
2022.05.24 | 0 | 35 |
34345 | 파워쿼리/피벗 |
New 각 테이블 마다 중복제거관련
(12)
답변완료
![]() |
![]() |
2022.05.24 | 0 | 51 |
34341 | 기능/도구 |
New 엑셀 시트 글자크기 및 사이즈 조정 되나요?
![]() |
![]() |
2022.05.24 | 0 | 30 |
34340 | 함수/공식 |
New 여러개의 열에 만족하는 값 구하기
(4)
답변완료
![]() |
![]() |
2022.05.24 | 0 | 45 |
34338 | 문서서식 |
New 선택한 셀 절대값으로 한번에 바꾸는 방법
(2)
![]() |
![]() |
2022.05.24 | 0 | 44 |
34337 | 구글시트 |
New 발주대비 입고일자를 카운팅 하고싶습니다.
(2)
답변완료
![]() |
![]() |
2022.05.24 | 0 | 35 |
34336 | VBA |
New 다른 시트의 두 셀 연동
![]() |
![]() |
2022.05.24 | 0 | 39 |
34334 | VBA |
New VBA 검색창을 만들었는데 엔터가 되지 않습니다..!
(2)
![]() |
![]() |
2022.05.24 | 0 | 42 |
34332 | 구글시트 |
New 2개의 조건을 충족하는 조건 값을 다른 시트에서 끌어 올려면 어떻게 해야 할까요?
(1)
![]() |
![]() |
2022.05.24 | 0 | 26 |
34330 | 함수/공식 |
New 엑셀에 수식 합치기 기능이 있을까요?
![]() ![]() |
![]() |
2022.05.24 | 0 | 55 |
34328 | 차트/그래프 |
New 방문하는 고객 누적막대그래프 및 최저, 최고 방문객 매장 리스트
![]() ![]() |
![]() |
2022.05.23 | 0 | 32 |
34326 | 문서서식 |
New 오빠두 강의 중 마우스 형관펜 기능에 대해서 질문드립니다.
![]() |
![]() |
2022.05.23 | 0 | 28 |
34324 | 문서서식 |
New 하이퍼링크 셀 선택
![]() ![]() |
![]() |
2022.05.23 | 0 | 35 |
34322 | 기능/도구 |
New 시트 갈때마다 맨위로 이동시키는 방법
(1)
![]() |
![]() |
2022.05.23 | 0 | 35 |
34318 | 대시보드 |
New 생일명단 및 육아휴직명단 추출
![]() ![]() |
![]() |
2022.05.23 | 0 | 59 |
34311 | 문서서식 |
New [조건부서식] 기초 질문
![]() ![]() |
![]() |
2022.05.23 | 0 | 34 |
34310 | VBA |
New 세로 블록 쌓기 데이터를 보고서 형식으로 만드는 방법 좀 알려주세요.
(4)
답변완료
![]() |
![]() |
2022.05.23 | 0 | 51 |
34307 | 함수/공식 |
New 수식 미입력 오류 문의
(2)
![]() |
![]() |
2022.05.23 | 0 | 39 |
이렇게 바꿔보세요
@엑셀은즐거워 님 감사합니다~^^)/
정말 큰 도움이 되었습니다~
@엑셀은즐거워 님 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
@수메리안 님 OutputSt.Cells(i, 7) = Format(WorksheetFunction.Substitute(OutputSt.Cells(i, 2), "-", ""), "'00000000000")
숫자 형식때문에 그런 것 같아보입니다.. 앞에 어퍼스트로피를 한번 붙여보세요
@엑셀은즐거워 님 아하, 그러네요^^
감사합니다, 정말 고수시네요~~:-)
즐거운 하루되세요^^