본문 바로가기

VBA271

[VBA_파일통합] 폴더속 파일 통합하기 폴더속 엑셀 파일들을 [통합]시트에 합치는 작업을 하려고 한다. 유의해야 할것은 각각의 파일들에서 헤더값들은 중복이 됨으로 헤더값을 제외한 DATA 영역의 값만 가져오는것이 관건이다. '= 헤더값을 제외한 내용부분 Set srcRange = ActiveSheet.UsedRange.Rows("2:" & ActiveSheet.UsedRange.Rows.Count) 이렇게 하면 헤더값이 아닌 2행부터 데이터가 있는 값들을 가져올 수 있기 때문에 헤더중복을 피할 수 있다. 더보기 Option Explicit Sub 파일통합() Dim srcRange As Range Dim destRange As Range Dim str$ Dim n& Dim Strpath$, Filename$ Sheets("통합").[a2:i1.. 2024. 3. 16.
[심화방] VBA_심화_100제 #21 [ 서울시 상권분석 크롤링 ] 회사 업무중에 서울시 상권분석을 하기 위해 참조한 사이트를 소개하려고 한다. 서울시 상권분석 서비스 (seoul.go.kr) 서울시 상권분석 서비스 Chrome, Microsoft Edge, Safari등 타 브라우저 이용 부탁드립니다. 이 브라우저는 서비스 지원이 곧 종료되어 최적화된 서비스 제공을 위해 Chrome, Microsoft Edge, Safari 등 타 브라우저로 서비스 이용 부탁드 golmok.seoul.go.kr 이 사이트에서 [지역·상권별 현황] 탭에 대해서 보려고 한다. 이 사이트는 몇개의 조건 검색으로 Json형태로 사이트에서 뿌려주는데 반응도 빠르다. 허나 한번에 하위메뉴를 여는 방법이 없고, 엑셀이나 다른방식으로 데이터를 다운받을 수 없어 이것을 재 가공하기 위해서는 일일이 긁.. 2024. 3. 12.
[365리뷰] 날짜추출하기 [feat. 서랍님] https://www.youtube.com/watch?v=e2E87OeceBM 오늘은 서랍님 영상중 [텍스트에서 자동날짜인식] 을 리뷰하기로 하겠다. =LET( →step1, "각 셀의 단어들을 모두 행으로분리한후 숫자만 결합해라", q,CONCAT(IFERROR(--MID(D2,SEQUENCE(LEN(D2)),1),"")), →step2, "각 셀의 단어들을 모두 행으로분리한후 에러가 발생한것을 공백으로 연결한후 트림으로 공백을 분리후 하이픈으로 연결해라", _d,--SUBSTITUTE(TRIM(CONCAT(IFERROR(--MID(D2,SEQUENCE(LEN(D2)),1)," "),""))," ","-"), →step3, "전체문자의 길이가 4개인 경우", _d4,IF(((--LEFT(q,2)>=1).. 2024. 3. 6.
[365리뷰] 해찾기 [feat. 서랍님] https://www.youtube.com/watch?v=g070BU204yQ&t=559s&ab_channel=IT%EC%84%9C%EB%9E%8D 오늘은 서랍님이 올리신 함수로 '해찾기'로직에 대해서 리뷰해 보려고 한다. 365로 잘하려면 배열 매트릭스에 대한 개념이 잡혀있어야 문제를 해결하는 관점이 달라질 수 있을 것 같다. 365는 셀 기반이 아닌 배열기반으로 움직이기 때문에 각 1차원 배열 x 1차원 배열로 만들어진 2차원 배열의 예상 결과값을 알아야 진정한 365 마스터가 되리라 생각한다. 영상에도 볼수 있듯이 결과는 단순하게 1차원 배열로 나오지만, 그 결과값이 나오기까지 1차원 배열들로 2차원 배열의 테이블값을 만들어서 그 값들 중 목표값과 비교하여 결국 원하는 [해찾기] 결과를 가져오는 것.. 2024. 2. 23.

티스토리툴바