|
▼Blue さん:
>▼ハチ さん:
>>でもできそうです。
>
>実際は
>>Dim test2(50) As Variant
>ですが、もうひとつ配列を作らなくても、できますか?
>(ReDimするのはたとえば3以降にデータがある場合使えないし)
>
>さらにJoinだと、"あ,い,う," という文字列をえれないのではないでしょうか?
>Dim v(3) As String
>v(3) = ""
>とすればできそうですけど。
Blueさんのご指摘の通りですね。
良く見てませんでした。すいません・・・
私の回答は無視してください。
Joinで無理やりやるなら・・・
要素に","があると困りますね。捨ててください。
Sub test()
Dim Str(50) As String
Dim test As String
Str(0) = "あ"
Str(3) = "い"
Str(30) = "う"
test = Join(Str, ",")
test = Replace(test, ",,", "")
If Right(test, 1) <> "," Then test = test & ","
MsgBox test
End Sub
|
|