엑셀 vba 이름정의 활용한 vba 코드

 

엑사남 20강

엑셀 파일 다운로드

동적범위 활용한 VBA.xlsm

0.04MB

이름에 사용된 함수식

=OFFSET(성적!$B$2,0,0,COUNTA(성적!$B:$B),COUNTA(성적!$2:$2))

짧은 코드(이름사용)

Sub CopyPaste_2()     Range("n2").CurrentRegion.Clear     Range("동적범위_1").Copy Range("n2") End Sub

긴 코드(거친 코드)

Sub CopyPaste_1() Dim lngR As Long Dim lngC As Long Dim rngD As Range     lngR = Cells(Rows.Count, "b").End(xlUp).Row         '특이점 맨끝에 row가 아니라 rows이면 값을 받아옴.     lngC = Cells(2, Columns.Count).End(xlToLeft).Column     Set rngD = Range("b2").Resize(lngR, lngC)     Range("n2").CurrentRegion.Clear     rngD.Copy Range("n2") End Sub