엑셀 VBA 기초! Cells, Offset, Resize로 범위 선택하는 방법

VBA(Visual Basic For Applications)는 엑셀에서 반복 작업을 자동화하거나 복잡한 계산을 수행할 때 매우 유용한 도구입니다. 특히, 셀이나 범위를 선택하고 조작하는 것은 VBA 프로그래밍의 핵심 중 하나입니다. 본 포스팅에선 VBA 초보자들을 위해 Cells, Offset, Resize 속성을 활용하여 범위를 선택하고 조작하는 방법을 자세히 확인해 보도록 하겠습니다.

 

Cells 속성

Cells 속성은 워크시트의 특정 셀을 행 번호와 열 번호로 지정할 수 있게 해 줍니다. 예를 들어, Cells(2, 2)는 B2 셀을 나타냅니다. 이러한 방식은 숫자로 셀을 지정하므로, 반복문이나 동적 범위 설정 시 유용하게 사용됩니다.

 

Dim rng As Range
Set rng = Cells(2, 2) ' B2 셀을 선택

 

Offset 속성

Offset 속성은 기준 셀에서 지정한 행과 열만큼 떨어진 위치의 셀이나 범위를 참조합니다. 이는 엑셀의 OFFSET 함수와 유사하게 동작합니다.

 

RangeObject.Offset(RowOffset, ColumnOffset)

 

 

 ㆍRowOffset: 기준 셀에서 이동할 행의 수 (양수는 아래로, 음수는 위로 이동)

 ㆍColumnOffset: 기준 셀에서 이동할 열의 수 (양수는 오른쪽으로, 음수는 왼쪽으로 이동)

 

Dim rng As Range
Set rng = Range("B2").Offset(1, 1) ' B2에서 한 행 아래, 한 열 오른쪽의 셀(C3)을 선택

 

 

Resize 속성

Resize 속성은 기존 범위의 크기를 행과 열 단위로 조정하여 새로운 범위를 반환합니다. 이를 통해 범위의 크기를 동적으로 변경할 수 있습니다.

RangeObject.Resize(RowSize, ColumnSize)

 

 

 ㆍRowSize: 새로운 범위의 행 수

 ㆍColumnSize: 새로운 범위의 열 수 예시:

 

Dim rng As Range
Set rng = Range("B2").Resize(3, 2) ' B2를 시작으로 3행 2열의 범위(B2:C4)를 선택

 

 

Cells, Offset, Resize의 조합 사용

이 세 가지 속성을 조합하면 복잡한 범위 선택을 유연하게 처리할 수 있습니다. 예를 들어, 특정 셀에서 시작하여 원하는 크기의 범위를 선택하거나 이동할 수 있습니다.

 

Dim rng As Range
Set rng = Cells(2, 2).Offset(1, 1). Resize(3, 2) ' B2에서 한 행 아래, 한 열 오른쪽으로 이동한 셀(C3)을 시작으로
3행 2열의 범위(C3:D5)를 선택

 

 

실습 예제: 학생 수 합계 계산

다음은 학생 수, 남학생, 여학생의 합계를 계산하여 특정 셀에 출력하는 예제입니다.

 

<데이터 예시>

구분	전교생	남학생	여학생
1학년	100	50	50
2학년	120	60	60
...	...	...	...

 

Sub CalculateTotals()
  Dim totalRange As Range
  Dim maleRange As Range
  Dim femaleRange As Range
  Dim rowCount As Long

  ' 데이터의 행 수 계산
  rowCount = Range("B2").End(xlDown).Row - 2

  ' 범위 설정
  Set totalRange = Cells(3, 3).Resize(rowCount, 1) ' C3부터 전교생 데이터 범위
  Set maleRange = Cells(3, 4).Resize(rowCount, 1) ' D3부터 남학생 데이터 범위
  Set femaleRange = Cells(3, 5).Resize(rowCount, 1) ' E3부터 여학생 데이터 범위

  ' 합계 계산 및 출력
  Range("C11").Value = Application.WorksheetFunction.Sum(totalRange)
  Range("D11").Value = Application.WorksheetFunction.Sum(maleRange)
  Range("E11").Value = Application.WorksheetFunction.Sum(femaleRange)
End Sub

 

 

 

 ㆍrowCount 변수는 데이터의 행 수를 계산합니다.

 ㆍtotalRange, maleRange, femaleRange 변수는 각각 전교생, 남학생, 여학생의 데이터 범위를 설정합니다.

 ㆍApplication.WorksheetFunction.Sum 함수를 사용하여 각 범위의 합계를 계산하고, 결과를 C11, D11, E11 셀에 출력합니다.

 

추가 팁: 동적 범위 설정

데이터의 행 수가 변동될 수 있는 경우, 동적 범위 설정이 중요합니다. End(xlDown) 속성을 사용하면 특정 셀에서 마지막 데이터가 있는 셀까지의 범위를 쉽게 찾을 수 있습니다.

 

Dim lastRow As Long lastRow = Range("B2").End(xlDown).Row

 

 

이렇게 하면 B2 셀에서 시작하여 아래로 내려가면서 마지막 데이터를 가진 행 번호를 lastRow 변수에 저장할 수 있습니다.

 

마치며

VBA에서 Cells, Offset, Resize 속성을 활용하면 엑셀 시트 내에서 원하는 셀이나 범위를 유연하게 선택하고 조작할 수 있습니다. 이를 통해 반복적인 작업을 자동화하거나 복잡한 데이터 처리를 효율적으로 수행할 수 있습니다. 초보자분들은 위에서 소개한 예제들을 직접 따라 해 보시면서 이해를 높이시길 바랍니다.

 

▼ 함께 보면 좋은 글

VBA변수 의미와 자료형 이해, 변수에 데이터 넣는 방법

VBA는 Range를 활용하여 쉽게 범위를 선택할 수 있어요!

업무자동화를 원한다면? 엑셀 VBA만으로도 충분한 이유