재질문 : ParseJSON 함수

VBA
작성자
하늘의 꿈
작성일
2021-10-19 01:48
조회
459
엑셀버전 : 엑셀2019

운영체제 : 윈도우10


json 파일에서 데이터를 추출하여 셀에 추가하는데

불필요한 행이 생성됩니다.

셀 삭제로는 한계가 있어 재 질문 합니다.

 

vResult = ParseJSON(strResult, "splySpcPyeong0WithUnit,splySpc,exclsSpc,exclsRate,")

ArrayToRng Sheet4.Range("A1"), vResult

명령어로 결과물을 받아온 결과물은 다음과 같습니다.

위의 그림에서 1행, 3행부터 18행, 등등을 삭제하고 싶습니다.

이전에 오빠두엑셀 "크롤링, 부동산" 강의에 있는

 

에서 else 부분을 삭제하니 비슷한 현상이 벌어지더군요

이를 이용하여 해결하려 해 보았으나 .... 방법을 못 찾겠네요

방법이 없을까요?

json.png

스크랩
공유
전체 3

  • 2021-10-20 22:52
    채택된 답변

    @하늘의 꿈 님 파워쿼리로 타인/타사의 정제된 데이터를 크롤링해서 가져와서 데이터를 처리하는 것에는 한계가 있습니다.
    1. ArrayToRng 함수에서,
    tempArr(i, 1) = Arr(i) 를
    if arr(i) <> "" then tempArr(i, 1) = Arr(i) 로
    변환해서 사용하는 방법 (2차원 배열의 경우, 로직을 자세히 봐야 합니다.

    2. 질문하신 코드는 결국 VBA 코드이므로,
    파워쿼리의 문장에서 해결하기 보다는 돌아온 결과를
    엑셀 기능으로 제거하는 방법

    즉, 위의 소스 함수 뒤에 아래 코드를 삽입하고
    CALL 중복데이타삭제 를 호출하는 것입니다.

    Sub 중복데이타삭제()
        Dim iRow As Long
        Dim iCol As Long
    
    
        iCol = ActiveSheet.UsedRange.Columns.Count
        iRow = ActiveSheet.UsedRange.Rows.Count
    
        ActiveSheet.Range(Cells(2, 1), Cells(iRow, iCol)).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8), Header:=xlNo
    End Sub
    

     


    • 2021-10-20 22:58

      8개의 컬럼이 모두 일치하는 데이타가 없다고 가정해서
      간단하게 행을 삭제하도록 한 것입니다.

      만약, 중복데이터가 존재할 수 있다면,
      전체 행을 For-next (또는 do while )로 체크하면서
      행을 삭제하면 될 듯 합니다.

      참조하세요~


      • 2021-10-21 13:26

        @야휘 님 답변 감사합니다. 한 번 도전해 보겠습니다.


전체 7,751
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉다양한 이벤트와 함께 진행하는, PPT 보고서 디자인 특강 안내 - 9/24 (토) 오후 9시~ (14)
오빠두엑셀 | 2022.09.08 | 추천 8 | 조회 2236
오빠두엑셀 2022.09.08 8 2236
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (3)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 1635
오빠두엑셀 2022.08.04 4 1635
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (93)
오빠두엑셀 | 2021.10.28 | 추천 123 | 조회 7364
오빠두엑셀 2021.10.28 123 7364
42414 기능/도구
New 엑셀로 가능한지 여쭤봅니다. 엑셀파일첨부파일
naver_5f055a605ee7d | 2022.09.24 | 추천 0 | 조회 20
naver_5f055a605ee7d 2022.09.24 - 20
42405 함수/공식
New 엑셀 INDEX MATCH 함수 질문드립니다. (다중조건) 첨부파일 (3)
임천명 | 2022.09.24 | 추천 0 | 조회 32
임천명 2022.09.24 - 32
42396 함수/공식
New 함수조언 엑셀파일 (1)
엑셀공부중 | 2022.09.24 | 추천 0 | 조회 32
엑셀공부중 2022.09.24 - 32
42395 함수/공식
New 함수 결과값 자동 갱신 질문입니다 엑셀파일 (2)
lifeti**** | 2022.09.24 | 추천 0 | 조회 32
lifeti**** 2022.09.24 - 32
42391 VBA
New 검색어와 동일한 결과값에 하이라이트 색깔 넣기 첨부파일 (1)
조지아 칸타타 | 2022.09.23 | 추천 0 | 조회 39
조지아 칸타타 2022.09.23 - 39
42390 VBA
New 검색어 입력시 같은 정보가 2개 반복되어... 첨부파일
조지아 칸타타 | 2022.09.23 | 추천 0 | 조회 26
조지아 칸타타 2022.09.23 - 26
42386 함수/공식
New 조건부서식 오류 엑셀파일첨부파일 (3)
Ngw77 | 2022.09.23 | 추천 0 | 조회 36
Ngw77 2022.09.23 - 36
42385 기능/도구
New 파일 가로로 통합하기(합치기) 질문입니다 첨부파일 (1)
감귤쫀드기 | 2022.09.23 | 추천 0 | 조회 34
감귤쫀드기 2022.09.23 - 34
42379 문서서식
New 가로로 작업했는데, 내용 보존?하면서 세로로 쉽게 바꿀 수 있는 방법이 있나요?? (1)
앨리 | 2022.09.23 | 추천 0 | 조회 49
앨리 2022.09.23 - 49
42378 차트/그래프
New 강우-유출량 그래프 분석 엑셀파일 (1)
chanyk | 2022.09.23 | 추천 0 | 조회 44
chanyk 2022.09.23 - 44
42377 함수/공식
New 한도액에서의 지원금 정산하기 엑셀파일 (2)
송인숙 | 2022.09.23 | 추천 0 | 조회 30
송인숙 2022.09.23 - 30
42374 함수/공식
New 각기 다른셀에 값 입력시 한셀에 날짜 자동 나타내기 (2)
MC쿠마 | 2022.09.23 | 추천 0 | 조회 25
MC쿠마 2022.09.23 - 25
42372 함수/공식
New 조건별 날짜계산 함수 계산 엑셀파일 (2) 답변완료
Ngw77 | 2022.09.23 | 추천 0 | 조회 41
Ngw77 2022.09.23 - 41
42367 기능/도구
New 엑셀2019에서 shift + 스크롤 (시트 좌우 스크롤) 되는건가요? 첨부파일 (4) 답변완료
월마리아 | 2022.09.22 | 추천 0 | 조회 43
월마리아 2022.09.22 - 43
42366 구글시트
New 스프레드 시트 필터함수 엑셀파일첨부파일 (4) 답변완료
거꾸로문 | 2022.09.22 | 추천 0 | 조회 44
거꾸로문 2022.09.22 - 44
42362 함수/공식
New NaverFinanceHistory 함수 연결 데이터 갱신 질문입니다 엑셀파일첨부파일
lifeti**** | 2022.09.22 | 추천 0 | 조회 34
lifeti**** 2022.09.22 - 34
42358 VBA
New VBA 텍스트 파일 저장 후 불러오기 질문드립니다. 엑셀파일
LovelyK | 2022.09.22 | 추천 0 | 조회 42
LovelyK 2022.09.22 - 42
42355 함수/공식
New 근속년수 산출 관련 문의 (4)
꼬맹이영 | 2022.09.22 | 추천 0 | 조회 59
꼬맹이영 2022.09.22 - 59
42354 함수/공식
New 세가지의 조건을 만족하는 값 불러오기 엑셀파일 (2) 답변완료
뎡이 | 2022.09.22 | 추천 0 | 조회 66
뎡이 2022.09.22 - 66
42348 차트/그래프
New 엑셀 일일 데이터관리 차트를 만들려고 합니다,,, 첨부파일 (2)
MC쿠마 | 2022.09.22 | 추천 0 | 조회 52
MC쿠마 2022.09.22 - 52
42342 기능/도구
New 엑셀 셀의 열너비, 행높이 고정 문의드립니다. (4)
함수시르미 | 2022.09.22 | 추천 0 | 조회 53
함수시르미 2022.09.22 - 53
42341 함수/공식
New  증가 또는 하락하는 함수 문의 합니다. 엑셀파일 (1) 답변완료
천형기 | 2022.09.22 | 추천 0 | 조회 44
천형기 2022.09.22 - 44
42336 차트/그래프
New 차트 세로줄 변동 되게 하고 싶습니다. 첨부파일 (3) 답변완료
성호 | 2022.09.22 | 추천 0 | 조회 32
성호 2022.09.22 - 32
42332 기능/도구
New 여러 행 데이터 한 행으로 통합하는 방법 첨부파일 (4)
엑셀고수왕소취 | 2022.09.21 | 추천 0 | 조회 53
엑셀고수왕소취 2022.09.21 - 53
42330 함수/공식
New STOCKHISTORY 거래량 오류 질문입니다 첨부파일 (2) 답변완료
lifeti**** | 2022.09.21 | 추천 0 | 조회 45
lifeti**** 2022.09.21 - 45
42327 구글시트
New 도서목록 검색하기 엑셀파일 (4) 답변완료
거꾸로문 | 2022.09.21 | 추천 0 | 조회 45
거꾸로문 2022.09.21 - 45
42324 문서서식
New 매크로 실행 차단 첨부파일 (5)
쾌남아 | 2022.09.21 | 추천 0 | 조회 52
쾌남아 2022.09.21 - 52
42322 함수/공식
New 일별 주문합계를 구하기 엑셀파일첨부파일 (2) 답변완료
꿈꾸는부자 | 2022.09.21 | 추천 0 | 조회 38
꿈꾸는부자 2022.09.21 - 38
42320 함수/공식
New 엑셀 다중 조건 함수 엑셀파일 (3) 답변완료
한군 | 2022.09.21 | 추천 0 | 조회 60
한군 2022.09.21 - 60
42313 함수/공식
New 두개의 조건을 만족하는 값 불러오기 엑셀파일 (4) 답변완료
뎡이 | 2022.09.21 | 추천 0 | 조회 80
뎡이 2022.09.21 - 80