ListBox 열 접근해서 반복 하기 (엑셀VBA)

 

 

Private Sub LoopListBoxColumn()

    Dim itm As String
    Dim s
    Dim v As Variant
    Dim i As Integer
    
    Dim lst_cnt As Long
    
    ReDim v(0 To 6)
        
    lst_cnt = Me.ListBox1.ListCount - 1
    
    For i = 0 To ListBox1.ColumnCount - 1
    
        v(i) = ListBox1.List(lst_cnt, i)
        
    Next

End Sub