[Sample Code] Sub Resize_test() Dim rngT As Range Dim cn As Long Set rngT = Range("A1").CurrentRegion cn = Cells(1, Columns.Count).End(xlToLeft).Column rngT.Offset(1).Resize(rngT.Rows.Count - 1, cn).Select End Sub 해석1. cn = Cells(1, Columns.Count).End(x..

형식(문법) : 기준개체.Resize(행,열) ex) 기준개체.Resize(2,3) 기준개체.Resize(,3).Select = 기준개체.Resize(기준개체의 행 갯수 전체,3).Select [Sample Code] Sub Resize_test() Dim rngT As Range Set rngT = Range("A1").CurrentRegion rngT.Resize(2, 3).Select End Sub rngT.Resize(2, 3).Select..

Dim Dict As Object Set Dict = CreateOject("Scripting.Dictionary") 위 문장을 아래의 한 문장으로 줄일 수 있다. Dim Dict As New Scripting.Dictionary

엑셀함수에서 두 가지 조건을 만족하는 셀의 개수를 계산할 때, Countif함수를 사용한다. 그런데 조건되는 특정열의 서식이 숫자와 텍스트가 혼용된 경우에는어떻게 할까 고민했다. Countblank함수는 조건을 둘 수 없었다. 나의 주무기! 인터넷 검색!!!!!!!! 드디어 찾았다. 포인트는 ""&"" 이네! 출처 : https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020101&docId=438..

고유목록 추출 A열의 목록에서 '고유목록'을 추출하여, B열에 있는 값들 중 '고유목록'에 해당하는 값들의 합계를 구해서 넣는 것으로 SUMIF함수를 이용하여 값을 구할 수 있다. 고유목록은 New Collection객체를 이용하여 추출할 수 있어서 For Each ~ Next문으로 Add매서드를 이용하여 구할 수 있다. (New Collection객체는 중복된 항목을 제거하고 고유의 항목만 가지게 하는 객체로서 고유한 목록을 추가해 주는 Add매서..

Array(배열)1 [개념] 1개의 변수에 여러 개의 값을 저장하여 활용할 수 있는 자료 구조 Array미적용시 5개 과목(국어,영어,수학,과학,체육)이 있는데, 과목명을 변수에 담아봅시다. 과목이 모두 5개이고 과목명이 문자이니까... 5개의 문자변수를 정의해야 하겠죠 Dim Subject1 As String Dim Subject2 As String .... .... Dim Subject5 As String Subject1 = "국어" .... ...

너, 너무 잘 하려고 애쓰지 마라 오늘 일은 오늘의 일로 충분했다 조금쯤 모자라거나 비뚤어진 구석이 있다면 내일 다시 하거나 내일 다시 고쳐서 하면 된다 조그만 성공도 성공이다 그만큼에서 그치거나 만족하라는 말이 아니고 작은 성공을 슬퍼하거나 그것을 빌미 삼아 스스로를 나무라거나 힘들게 하지 말라는 말이다 ​ 나는 오늘도 많은 일들과 만났고 견딜 수 없는 일들까지 견뎠다 나름대로 최선을 다한 셈이다 그렇다면 나 ..

Sub test() Dim rngA As Range '전체 범위변수 Dim rngB As Range 'For Each를 위한 단일 셀 변수 Dim C As New Collection '원하는 데이터를 담아줄 Collection선언 Set rngA = Range("C3", Cells(Rows.Count, "c").End(xlUp)) 'ranA에는 C3부터 C열 마지막 행까지의 범위를 담아줘 '반복문을 통한 Collection에 값 담아주기 On Err..