EXCEL中用vba把一行内容按列转成txt格式的代码？

以a为txt标题，aa为txt第一行内容，到第三列aaa写入txt中要有换行。在此例中会形成三个txt文件，标题分别是a.txt b.txt c.txt。用vba操作，我的EXCEL中有上千行数据需要转换，故希望大神写出的代码可以满足我的这个要求，感激不尽！！！

下面的代码测试通过，能够满足你的要求：
Option Explicit
Sub YgB()
    Dim i, j, n, m, arr
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        n = "c:\" & Cells(i, 1) & ".txt"
        m = Cells(i, Columns.Count).End(xlToLeft).Column
        arr = Cells(i, 2).Resize(1, m - 1)
        Open n For Output As #1
        For j = 1 To m - 1
            Print #1, arr(1, j)
        Next j
        Close #1
    Next i
End Sub