9000개의 전화번호를 4000개씩 나눠서 csv파일 형식으로 저장하는 매크로를 만들고 싶습니다

작성자
건빠앙
작성일
2024-08-08 13:05
조회
212
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

질문 요약 : 수많은 연락처를 원하는 수만큼 나눠서 지정된 저장위치에 csv 파일로 저장하고 싶어요!

안녕하세요.

회사업무 중 수많은 연락처에 문자발송 할 일이 있는데

4000개씩 나눠서 csv 파일 형식으로 저장해서 사용해야합니다ㅠㅠ

엑셀 초보라 여기저기 찾아보던 중 기본 형식이 있어서 짜깁기해서 쓰다보니

제가 원하는 매크로가 만들기 어려워서 질문 드립니다


Sub loop1()
Dim i As Long
Dim iEnd As Long
Dim wk As Workbook
Dim sh As Worksheet
Dim wkT As Workbook
Dim shT As Worksheet
Dim r As Range
Dim rCopy As Range
Application.ScreenUpdating = False
Set wkT = ThisWorkbook
Set shT = wkT.Worksheets("Sheet1")
iEnd = shT.Range("A" & Rows.Count).End(xlUp).Row '' 630000 '''
For i = 1 To iEnd Step 4001
Set rCopy = shT.Range("A" & i).Resize(4001, 5) '''열(5)번호를 조정 하시면
Set wk = Workbooks.Add
Set sh = wk.Worksheets(1)
Set r = sh.Range("A1")
rCopy.Copy r
wk.SaveAs wkT.Path & "\" & i & ".csv"
wk.Close
Next i
End Sub

제가 참고한 매크로는 이거입니다

최종결과는 첫 행의 순번 삭제 / 첫 열의 연락처는 새 파일 생성될 때에도 계속 유지되어야 하는데

매크로에 내용 추가가 어려워서 문의드립니다ㅠㅠ

+

추가로 바탕화면의 지정된 폴더에 바로 저장할 수 있는 매크로가 있다면 같이 알려주시면 감사하겠습니다ㅠㅠ

 

신고
스크랩
공유
전체 4

  • 2024-08-08 15:56

    @건빠앙 님  

    1 파일 저장 폴더 입력
    2 파일 사이즈 입력 후
    3 [연락처 분할] 매크로 버튼 클릭

    첨부파일 : 전화번호-분할-저장.xlsm


    • 2024-08-08 16:40

      @김재규 님 안녕하세요

      답변 남겨주셔서 정말 감사합니다

      다름이 아니라 말씀해주신대로 해보았으나,

      9번째에서 오류가 발생해서요ㅠㅠ 왜 오류가 발생하는지 알 수 있을까요?ㅠㅠ


전체 16,931
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (290)
오빠두엑셀 | 2022.02.03 | 추천 554 | 조회 844346
오빠두엑셀 2022.02.03 554 844346
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 304 | 조회 31512
오빠두엑셀 2021.10.28 304 31512
74604 문서서식
New 간트차트 조건부서식 이용 문의 엑셀파일첨부파일 (1)
배고픈짐승 | 2024.10.30 | 추천 0 | 조회 33
배고픈짐승 2024.10.30 - 33
74599 함수/공식
New 이런 경우에는 무슨 함수를 써야할까요..? (2)
iwnqn | 2024.10.30 | 추천 0 | 조회 46
iwnqn 2024.10.30 - 46
74598 문서서식
New 엑셀 유효성 검사 뛰어 쓰기 문제 엑셀파일 (2)
퉁퉁이 | 2024.10.30 | 추천 0 | 조회 36
퉁퉁이 2024.10.30 - 36
74592 함수/공식
New 여러 값들 중에서 원하는 값을 찾고 싶어요 도와주세요! 첨부파일 (6) 답변완료
저도해볼게요 | 2024.10.30 | 추천 0 | 조회 56
저도해볼게요 2024.10.30 - 56
74589 구글시트
New 한셀에 줄바꿈으로 있는 여러데이터를 한셀에 한데이터 들어가게끔 일괄로 하고 싶습니다 첨부파일 (4) 답변완료
스톤스톤 | 2024.10.30 | 추천 0 | 조회 43
스톤스톤 2024.10.30 - 43
74585 VBA
New UserForm 크기질문 첨부파일 (4) 답변완료
땡이 | 2024.10.30 | 추천 0 | 조회 55
땡이 2024.10.30 - 55
74583 함수/공식
New XLOOKUP 함수의 다중조건을 잘 모르겠습니다 첨부파일 (4)
qlcc**** | 2024.10.30 | 추천 0 | 조회 57
qlcc**** 2024.10.30 - 57
74582 함수/공식
New filter 함수에 대해 문의드립니다 (5)
김은상 | 2024.10.30 | 추천 0 | 조회 57
김은상 2024.10.30 - 57
74581 구글시트
New 구글폼 견적서 자동화 관련, 폼에서 입력된 이미지 파일을 견적서에 넣는 방법 좀 알려주시면 감사하겠습니다.
| 2024.10.30 | 추천 0 | 조회 42
2024.10.30 - 42
74572 차트/그래프
New 꺽은선 그래프의 레이블이 원복이 됩니다. 첨부파일 (3)
구리구리이 | 2024.10.30 | 추천 0 | 조회 50
구리구리이 2024.10.30 - 50
74570 함수/공식
New 배수 금액으로 순번 정하기 알려 주세요...ㅠ 엑셀파일첨부파일 (3) 답변완료
서기 | 2024.10.30 | 추천 0 | 조회 47
서기 2024.10.30 - 47
74566 함수/공식
New 두개의 열에 입력된 데이터를 순서 바꿔서 입력으로 중복일 때 골라내는 법 엑셀파일첨부파일 (1)
문과적남자 | 2024.10.30 | 추천 0 | 조회 50
문과적남자 2024.10.30 - 50
74564 함수/공식
New 각 열별로 합 구하는 방법 첨부파일 (1)
라핼 | 2024.10.30 | 추천 0 | 조회 60
라핼 2024.10.30 - 60
74563 함수/공식
New 필터 적용시 중복값 제외 카운트 되는 법 좀 알려주세요 ㅠㅠ 첨부파일 (1)
정재욱 | 2024.10.30 | 추천 0 | 조회 65
정재욱 2024.10.30 - 65
74558 함수/공식
New 문자와 숫자가 섞여있는 열의 합계와 평균을 구하는 방법을 알려주세요!! 첨부파일 (9)
침착해 | 2024.10.30 | 추천 0 | 조회 69
침착해 2024.10.30 - 69
74556 함수/공식
New 세트상품 마진율 구하기 (2)
ek02 | 2024.10.30 | 추천 0 | 조회 55
ek02 2024.10.30 - 55
74543 기능/도구
New 문자와 숫자 혼합된 셀에서 숫자만 따로 따올수 있는 기능이 있을까요? 첨부파일 (3)
야만용사 | 2024.10.29 | 추천 0 | 조회 91
야만용사 2024.10.29 - 91
74542 기능/도구
New 엑셀 백분율 숫자로변경 (3)
rarara | 2024.10.29 | 추천 0 | 조회 80
rarara 2024.10.29 - 80
74540 함수/공식
New ★데이터 가공★ 잘못된 데이터를 올바른 데이터로 변환하는 과정을 도와주세요 ㅠㅠ 엑셀파일첨부파일 (10)
| 2024.10.29 | 추천 0 | 조회 116
2024.10.29 - 116
74539 함수/공식
New 안녕하세요 INDEX, MATCH 다중조건 질문드립니다! 엑셀파일 (3)
gys**** | 2024.10.29 | 추천 0 | 조회 90
gys**** 2024.10.29 - 90
74533 함수/공식
New 산출집계시트에 항목을 산출서에서 가져오고싶어요 엑셀파일 (3)
Moto | 2024.10.29 | 추천 0 | 조회 85
Moto 2024.10.29 - 85
74532 문서서식
New [질문] 전체 행 또는 열을 선택 후 특정 셀만 선택 제외 시키기 첨부파일 (2)
ViVaViva | 2024.10.29 | 추천 0 | 조회 76
ViVaViva 2024.10.29 - 76
74530 함수/공식
New Lookup 함수 오류에 관한 문의 엑셀파일첨부파일 (6) 답변완료
TMOH | 2024.10.29 | 추천 0 | 조회 91
TMOH 2024.10.29 - 91
74528 함수/공식
New 다중조건 만족하는 결과를 가져오고싶습니다 도와주세요 ㅠㅠ 엑셀파일첨부파일 (7)
말하지마00 | 2024.10.29 | 추천 0 | 조회 97
말하지마00 2024.10.29 - 97
74526 함수/공식
New 열과 행으로 정렬된 데이터를 같은 행으로 표시하려고 합니다. 엑셀파일 (2) 답변완료
깐부 | 2024.10.29 | 추천 0 | 조회 75
깐부 2024.10.29 - 75
74521 함수/공식
New B시트에서 A시트 항목 제품 및 수량 가져오는법좀 부탁드려요 첨부파일 (2)
Moto | 2024.10.29 | 추천 0 | 조회 77
Moto 2024.10.29 - 77
74520 VBA
New VBA 런타임 오류 관련 질문 첨부파일 (1)
angelriun | 2024.10.29 | 추천 0 | 조회 60
angelriun 2024.10.29 - 60
74518 함수/공식
New 두 시트에서 교집합 찾기 (3)
우파루파 | 2024.10.29 | 추천 0 | 조회 86
우파루파 2024.10.29 - 86
74516 구글시트
New 렌덤으로 배치 할수 있는 방법이 있을까요? 첨부파일 (8)
피망이 | 2024.10.29 | 추천 0 | 조회 76
피망이 2024.10.29 - 76
74513 함수/공식
New 엑셀로 명리를 정리하던 중에.. 엑셀파일 (8)
Ballad | 2024.10.29 | 추천 0 | 조회 103
Ballad 2024.10.29 - 103