|
おはようございます。
>文字列を配列に変更して、1文字ずつで処理をしたいので、以下の方法で
>行っていますが、もっとsimpleな方法はないでしょうか?
>
Sub 配列処理_Click()
Dim i As Long
Dim work0
work0 = "1234567890"
ReDim work1(1 To Len(work0))
For i = 1 To 10
work1(i) = Mid(work0, i, 1)
Next i
End Sub
↑これが一番simpleだし、わかりやすいし、速いし・・と、思いますけどねえ!!
Simpleではなく、他の方法 というのなら・・・、
'================================
Sub test()
Dim g0 As Long
Dim mystr As String
Dim myarray As Variant
mystr = "1234567890"
myarray = Application.Transpose(Evaluate("if(row(a1:a" & _
Len(mystr) & ")<=" & Len(mystr) & _
",mid(""" & mystr & """,row(a1:a" & _
Len(mystr) & "),1))"))
MsgBox mystr
For g0 = LBound(myarray) To UBound(myarray)
MsgBox myarray(g0)
Next
End Sub
|
|