はじめまして初心者です。
1,2,3,4,5
6,7,8,9,10
11,12,13,14,15　　という5行3列のデータを読みこんで

1 6  11
2 7  12
3 8  13
4 9  14
5 10 16   という3行5列に変更して書き込むということをやっているのですが

どうしても書き込んだファイルを見るとうまくいかず、縦1列にならんでしまったり数字が順番に書き込まれているだけとかになってしまいます....

いろいろ調べてみたのですが、うまくいく方法が見つかりませんでした...
お時間あればレスお願いします。

> はじめまして初心者です。
> 1,2,3,4,5
> 6,7,8,9,10
> 11,12,13,14,15　　という5行3列のデータを読みこんで
>
> 1 6  11
> 2 7  12
> 3 8  13
> 4 9  14
> 5 10 16   という3行5列に変更して書き込むということをやっているのですが
>
> どうしても書き込んだファイルを見るとうまくいかず、縦1列にならんでしまったり数字が順番に書き込まれているだけとかになってしまいます....
>
> いろいろ調べてみたのですが、うまくいく方法が見つかりませんでした...
> お時間あればレスお願いします。



行と列間違えました...3行5列を5行3列でした...

> > 1,2,3,4,5
> > 6,7,8,9,10
> > 11,12,13,14,15　　という5行3列のデータを読みこんで

> > 1 6  11
> > 2 7  12
> > 3 8  13
> > 4 9  14
> > 5 10 16   という3行5列に変更して書き込むということをやっているのですが

余り良いサンプルとは言えませんが下記ではどうですか？

Dim tmp1 As String
Dim tmp2 As String
Dim tmp3 As String

Dim dat1() As String
Dim dat2() As String
Dim dat3() As String

Dim fNo As Integer
Dim j As Integer

tmp1 = "1,2,3,4,5"
tmp2 = "6,7,8,9,10"
tmp3 = "11,12,13,14,15"

dat1 = Split(tmp1, ",")
dat2 = Split(tmp2, ",")
dat3 = Split(tmp3, ",")

fNo = FreeFile

Open "C:\test.txt" For Output As #fNo

    For j = 0 To 4
        Print #fNo, dat1(j) & " " & dat2(j) & " " & dat3(j)
    Next j

Close #fNo

> > > 1,2,3,4,5
> > > 6,7,8,9,10
> > > 11,12,13,14,15　　という5行3列のデータを読みこんで
>
> > > 1 6  11
> > > 2 7  12
> > > 3 8  13
> > > 4 9  14
> > > 5 10 16   という3行5列に変更して書き込むということをやっているのですが
>
> 余り良いサンプルとは言えませんが下記ではどうですか？
>
> Dim tmp1 As String
> Dim tmp2 As String
> Dim tmp3 As String
>
> Dim dat1() As String
> Dim dat2() As String
> Dim dat3() As String
>
> Dim fNo As Integer
> Dim j As Integer
>
> tmp1 = "1,2,3,4,5"
> tmp2 = "6,7,8,9,10"
> tmp3 = "11,12,13,14,15"
>
> dat1 = Split(tmp1, ",")
> dat2 = Split(tmp2, ",")
> dat3 = Split(tmp3, ",")
>
> fNo = FreeFile
>
> Open "C:\test.txt" For Output As #fNo
>
>     For j = 0 To 4
>         Print #fNo, dat1(j) & " " & dat2(j) & " " & dat3(j)
>     Next j
>
> Close #fNo



すいません例が悪かったですね...
これ以外にも行列の数が両方100のデータもあるんです...
これがわかれば他もできると思ったので例は小さな数にしたんですけど..
大きい数でも簡単にできる方法ありますか？

全文引用は止めて下さい。
（その方が楽でしょうが、手を抜かずに適切な引用をして下さい）

＞大きい数でも簡単にできる方法ありますか？

基本的な処理を提示しました。後は自分で考えて下さい。
（例を小出しにされたんではこれ以上つきあう気はありません）

すいませんでした..
がんばってやってみます。

試してないけど、行と列の数に関係なくやるならこんな感じかな。

Dim iFileNo As Integer
Dim i As Integer
Dim j As Integer
Dim strData() As String
Dim strTemp() As String

'行数と列数を取得
i = 0
iFileNo = FreeFile
Open "C:\SrcText.txt" For Input As #iFileNo
Do Until EOF(iFileNo)
    Line Input #iFileNo, strBuffer
    strData = Split(strBuffer, ",")
    i = i + 1
    j = UBound(strData) - LBound(strData) + 1
Loop
Close #iFileNo

'データを２次元配列に読み込み
ReDim strData(i - 1, j - 1)
FileNo = FreeFile
Open "C:\SrcText.txt" For Input As #iFileNo
For i = LBound(strData, 1) To UBound(strData, 1)
    Line Input #iFileNo, strBuffer
    strTemp = Split(strBuffer, ",")
    For j = LBound(strData, 2) To UBound(strData, 2)
        strData(i, j) = strTemp(j)
    Next j
Next i
Close #iFileNo

'２次元配列の行と列を入れ換えてデータを書き込み
ReDim　strTemp(UBound(strData, 1))
iFileNo = FreeFile
Open "C:\DstText.txt" For Output As #iFileNo
    For j = LBound(strData, 2) To UBound(strData, 2)
        For i = LBound(strData, 1) To UBound(strData, 1)
            strTemp(i) = strData(i, j)
        Next i
        Print #iFileNo, Join(strTemp, ",")
    Next j
Close #iFileNo