VBA 내 배열값을 엑셀로 옮기는 과정에서 문제가 생겨 질문드립니다.

엑셀에서 자주 보던 상황인데 막상 VBA에서 해결하려고 보니까 쉽지가 않네요.

 

배열 값이 0001인데 엑셀로 옮기는 과정에서 1이 되는 부분입니다.

 

옮긴 다음에 서식을 바꿔주기에는 010-XXXX-XXXX로 모든 연락처가 일정하면 좋은데 010-XXX-XXXX 같이 연락처가 짧은 경우가 있기에 무턱대고 서식으로 해결하기도 힘드네요. 무엇보다 " ' " 이 부호를 각 셀 값에 넣어야 되는데 이상하게 넣을 때마다 튕김 현상도 발생해서 벌써 4번째 파일까지 날려 먹었네요 ㅠㅠ

 

배열 셀 이동간 FORMAT 변경 유지나 문자열 추가하는데 도움 주실 수 있는 분 도움 부탁드립니다.