りんご
5
みかん
4
りんご
3
みかん
1
となっているとき
これを、spt→りんご ｓｐｔ（0）＝りんご
ｓｐｔ（1）＝5
ｓｐｔ（2）＝りんご
ｓｐｔ（3）＝3
sp→みかん ｓｐ（0）＝みかん
ｓｐ（1）＝4
ｓｐ（2）＝みかん
ｓｐ（3）＝3
ってな具合の二種類の配列を作りたいのですが、どうやってつくればいいのでしょうか？
>となっているとき
対象はテキストファイルでいいの？？？
１行ずつ読み込んで、読み込んだ文字列を If 文とか
Select 文とかで分岐して対応する配列に格納して下さい。
二次元でよければ。
Dim spt
Dim i As Long
For i = 1 To 5
If i = 1 Or i = 3 Or i = 4 Or i = 5 Then
If IsArray(spt) Then
ReDim Preserve spt(1,UBound(spt,2)+1)
Else
ReDim spt(1,0)
End If
Select Case i
Case 1,4
spt(0,UBound(spt,2)) = "みかん"
Case 3,5
spt(0,UBound(spt,2)) = "りんご"
End Select
spt(1,UBound(spt,2)) = i
End If
Next i
参考にして下さい。