본문 바로가기

Intersect2

[VBA] Find + Intersect를 통해서 원하는값만 출력하기 원하는 값을 포함하는 영역만 따로 출력하는 문제이다. 여기서 핵심은 Intersect를 통해서 교집합 영역을 추출하는것이다. 이것만 이해하면 본인의 코드를 충분히 이해할 수 있을 것이다. 포기하지 않은 자들이여...신의 가호가... 더보기 Option Explicit Sub Find_Num() Dim rngAll As Range: Set rngAll = [b5:g18] '= 전체영역 Dim rngF As Range '= Find 셀을 담을 영역 Dim rngAdrss$, n&, i& Dim Vall(1 To 100) '= 임의의 크기의 배열을 설정 Dim rngX As Range: Set rngX = [i5] With rngAll Set rngF = .Find(What:=7, Lookat:=xlWhole.. 2022. 12. 15.
[VBA_merge] 같은 연번 부분합 구하기 엑셀을 조금이라도 다룰 줄 아시는 분이라면 병합 셀로 자료를 만드는 것이 얼마나 위험(?)하고 관리하기 힘든지 아시리라 본다. 허나 병합 셀을 즐기는 엑찔이가 우리 주위에는 너무나도 많기에 엑사남인 우리는 배울 필요도 없는 이 엑셀에서의 병합된 셀을 다루는 방법을 배워야 한다. 문제는 이렇다. 같은 연번 내에 같은 성명이 들어간 경우 중복된 성명은 제거하고 대신 점수만 합산하는 문제이다. 마지막에는 같은 연번은 하나로 병합해야 해야하는 정말 다음 어떤 작업을 할지 모르겠지만 내일이 없는 작업이다. 이번 문제를 해결하기 위해서 1. SpecialCells가 사용되었다. 상수 내장상수 뜻 4 xlLogical 빈셀만 선택 2 xlTextValues 공백을 제외한 숫자,문자 선택 1 xlNumbers 숫자선택.. 2021. 8. 5.