oobird

1. Private Sub UserForm_Initialize()
   
2.     Dim arr(), rng, i%, j%, m%
   
3.     Me.ListBox1.ColumnCount = 5
   
4.     Me.ListBox1.ColumnWidths = "60,60,60,60,60"
   
5. 
   
6.     rng = [a1].CurrentRegion
   
7.     For i = 1 To UBound(rng)
   
8.         If i = 1 Or rng(i, 1) Like "*1399*" Then
   
9.             m = m + 1
   
10.             ReDim Preserve arr(1 To 5, 1 To m)
    
11.             For j = 1 To 5
    
12.                 arr(j, m) = rng(i, j)
    
13.             Next
    
14.         End If
    
15.     Next
    
16.     Me.ListBox1.List() = Application.Transpose(arr)
    
17. 
    
18. End Sub

½Æ»s¥N½X