Excel VBA에서 배열을 반복 함

Question

VBA의 배열에 익숙해 지려고합니다. 나는 다른 시트에 "1"이 들어있는 줄을 복사하여 목록의 끝에 놓은 다음 원래 시트에서 지우고 싶습니다. 다음은 함께 작성한 코드입니다. 작동하지 않습니다.

아무도 도와 줄 수 있습니까?

Sub array1() 
Dim Oblast() As Variant 
Dim dimension1 As Long 
Dim i As Long 
Dim dvojPole() As Variant 

Worksheets("live_position").Activate 

Oblast = Range("A2", Range("A1").End(xlDown)) 
dimension1 = UBound(Oblast, 1) 
ReDim dvojPole(1 To dimension1, 1 To 2) 

For i = 1 To dimension1 
Set dest = Worksheets("closed").Range("A1").End(xlDown).Offset(1, 0) 
    If dvojPole(i, 1) = 1 Then 
     dvojPole(i, 1).EntireRow.Copy Destination:=dest 
     dvojPole(i, 1).EntireRow.Delete 
    End If 

Next i 
End Sub 

Answer 1

아래의 예를 고려하십시오. 배열을 올바르게 정의하지 않았고 값을 반복하지 않았습니다. 여기에서 핵심은 범위에서 반복하기 위해 셀 값 위치와 실제 셀 값을 참조하는 것입니다.

On Error GoTo ErrHandle: 
    Dim Oblast() As Variant 
    Dim xlcell As Range, cleanupRng As Range 
    Dim i As Integer, j As Integer, k As Integer, l As Integer, counter As Integer 

    ' DEFINE DIMENSION OF ARRAY 
    ReDim Oblast(0 To Range("A2", Range("A1").End(xlDown)).Count) 

    ' INSERT VALUES (CELL LOCATION) IN ARRAY 
    i = 0 
    For Each xlcell In Range("A2", Range("A1").End(xlDown)) 
     Oblast(i) = xlcell.Address(False, False, xlA1) 
     i = i + 1 
    Next xlcell 

    j = Worksheets("closed").Range("A1").End(xlDown).Row + 1 

    ' ITERATE ACROSS ARRAY 
    For k = LBound(Oblast) To UBound(Oblast) - 1 
     If Range(Oblast(k)) = 1 Then 
      Range(Oblast(k)).Copy Destination:=Worksheets("closed").Range("A" & j) 
      Range(Oblast(k)).EntireRow.ClearContents 
     End If 
    j = j + 1 
    Next k 

    ' DELETING CLEARED ROWS 
    Set cleanupRng = Range("A1:A" & ActiveSheet.UsedRange.Rows.Count) 

    l = 1 
    For counter = 1 To ActiveSheet.UsedRange.Rows.Count 
     If Len(cleanupRng.Cells(l)) = 0 Then 
      cleanupRng.Cells(l).EntireRow.Delete 
     Else 
      l = l + 1 
     End If 
    Next counter 
    Exit Sub 

ErrHandle: 
    MsgBox Err.Number & " - " & Err.Description 
    Exit Sub