|
上の例は サンプルデータではうまくいきますが、
BA200
CA100
D-00A
というようなデータではうまく仕分けできません。
文字通り 「Aで始まる」で仕分けるときは、 一例ですが、
Like 演算子でつぎのように 判定します
Private Sub UserForm_Initialize()
Dim arry, i As Long, iMax As Long
Dim List1() As String, k1 As Long
Dim List2() As String, k2 As Long
arry = Application.Transpose(Range("A2", Range("A65536").End(xlUp)))
iMax = UBound(arry)
ReDim List1(1 To iMax)
ReDim List2(1 To iMax)
For i = 1 To UBound(arry)
If arry(i) Like "A*" Then '← ここで 判定
k1 = k1 + 1
List1(k1) = arry(i)
Else
k2 = k2 + 1
List2(k2) = arry(i)
End If
Next
ReDim Preserve List1(1 To k1)
ReDim Preserve List2(1 To k2)
ListBox1.List = List1()
ListBox2.List = List2()
End Sub
|
|