도움되는 블로그

이전 포스팅 바로가기

[엑셀 VBA #11] (배열#1) 배열 이해하기. 배열의 차원과 정적, 동적배열

예제7.xlsm

Option Explicit            '변수가 선언 없이 사용되는걸 방지

Sub example_7()

Dim varArray                'varArray 배열 선언

Const n = 1                '기준으로할 셀의 행값 n 설정

Const m = 1                '기준으로할 셀의 열값 m 설정

Dim i As Integer

Dim p As Integer

i = Cells(n, m).End(2).Column - m + 1        '배열의 가로 크기 구하기

p = Cells(n, m).End(4).Row - n + 1            '배열의 세로 크기 구하기

ReDim varArray(1 To p, 1 To i)                '위에서 구한 배열의 크기로 배열 재선언

varArray = Cells(n, m).Resize(p, i)                '배열의 크기대로 셀(n,m)을 기준으로 배열 저장

Cells(5, 5).Resize(p, i) = varArray                '셀(5,5)에 저장된 배열 불러오기

End Sub

option explicit

Sub example_7_2()

Dim varArray()                    '배열 varArray 선언

Dim n As Long                    '회원 이름이 포함된 셀의 행 n 선언

Dim m As Long                     '회원 이름이 포함된 셀의 열 m 선언

Dim i As Long                        '행의 길이(이동해야 할 셀의 양) 변수 선언

n = Selection.Row                '선택한 셀의 행을 n에 입력

m = Selection.Column                '선택한 셀의 열을 m에 입력

    If m <> 1 Then                    'm의 값이 1이 아닐 경우, 즉 선택한 셀이 이름이 포함된 열이 아닐경우

    MsgBox "회원 이름을 선택해야 합니다."           

    Exit Sub                            '종료

    Else

    End If

i = Sheet9.Cells(n, m).End(2).Column                    '이동해야 할 셀의 양 설정

ReDim varArray(1 To i)                            '이동해야 할 셀의 양에 맞춰서 배열 크기 조절

varArray = Sheet9.Cells(n, m).Resize(, i).Value                    '배열에 복사해야 할 값 지정

Sheet10.Cells(Rows.Count, 1).End(3)(2).Resize(, i) = varArray          '데이터가 들어가야 하는 위치를 찾고 배열을 입력 

Selection.EntireRow.Delete                    '과거로 이동한 인원 자료 현재회원에서 제거

End Sub

Sheet10.Cells(Rows.Count, 1).End(3)(2).Resize(, i) = Sheet9.Cells(n, m).Resize(, i).Value

varArray = Sheet9.Cells(n, m).Resize(, i).Value                

Selection.EntireRow.Delete 

Sheet10.Cells(Rows.Count, 1).End(3)(2).Resize(, i) = varArray