如何将excel的数据按列导成多个txt格式的文本，A列作为每个TXT的文件名，B列是A1 TXT的文件名内容依次后推

Question

如何将excel的数据按列导成多个txt格式的文本，
要求1、A列作为每个TXT的文件名
要求2、B列是A1 TXT的文件名内容、C列是A2 TXT的文件名内容、D列是A2 TXT的文件名内容 依次后推

以下是类似的，但是不完全适合，提供思路参考
Sub txt()

Dim i, j, arr(), brr(), myRow, myCol

arr = Sheet1.UsedRange

myRow = UBound(arr, 1)

myCol =UBound(arr, 2)

For i = 1 To myRow

Open ThisWorkbook.Path & "" & arr(i, 1) & ".txt" For Output As #1

Print #1, Range("B" & CStr(i)). Value

Close #1

Next

End Sub

使用说明：
Excel表格，第一列作为每个TXT的文件名，第二列是TXT的内容
在Excel中按下Alt+F11，选择对应的表，复制上面的代码，点击运行
生成的TXT在Excel对应的目录中

Answer 1

Sub aa()
    Dim r, c As Integer
    r = ActiveSheet.UsedRange.Rows.Count
    c = ActiveSheet.UsedRange.Columns.Count
    Set fso = CreateObject("Scripting.FileSystemObject")
    For i = 2 To c
        Set myTxt = fso.CreateTextFile(Filename:=ThisWorkbook.Path & "/" & Cells(i - 1, 1).Value2 & ".txt", OverWrite:=True)
        For j = 1 To r
            myTxt.Write Cells(j, i).Value & vbCrLf
        Next
        myTxt.Close
    Next
End Sub