読みたい文字だけを読み込むようにするには (ID:91092)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 二次元でよければ。 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 参考にして下さい。