>

VBA를 사용하여 배열에 저장하려는 열과 관련하여 일부 데이터가 있습니다. 저장 한 후 배열에서 요소를 참조하고 비교합니다.

Dim tRange As Range
Set tRange = wb.Sheets("wbname").Range("A1:A5")

column A 를 저장하고 싶다고하자  VBA의 배열에 5 행이 있습니다. 길을 알 수 있을까요?

  • 답변 # 1

    여기 편도입니다 :

    Sub Dave()
        Dim tRange As Range, wb As Workbook, cell As Range
        Dim i As Long
        Set wb = ThisWorkbook
        Set tRange = wb.Sheets("wbname").Range("A1:A5")
        ReDim arr(1 To tRange.Count)
        i = 1
        For Each cell In tRange
            arr(i) = cell.Value
            i = i + 1
          Next cell
    End Sub
    
    

    참고 :

    이 기법은 범위의 "모양"에 의존하지 않습니다. 범위가 열 조각, 행 조각, 셀 사각형 또는 심지어 분리 된 셀 집합 인 경우 작동합니다.

  • 답변 # 2

    변형 데이터 형식을 선언 할 수 있습니다. 범위와 동일하게 만드십시오.

    Dim DirArray As Variant
    DirArray = Range("a1:a5").Value
    
    

    이것은 @vacip가 이전 질문에서 우연히 같은 범위로 대답했습니다! VBA 범위에서 배열 만들기

관련 자료

  • 이전 ios - 다단계 배열을 사전으로 변환
  • 다음 typescript - Angular Universal Express 서버는 계속로드되고 ERR_EMPTY_RESPONSE와 함께 실패합니다