如何从Excel工作表中导出数据以创建以特定格式排列的单元格数据的文本文件？

Question

我对Excel不太熟悉。 我想知道是否可以采用电子表格并使用特定的文本格式从其数据生成新的文本文件。 我所拥有的是一张工作表，其中有200多个国家/地区名称。 对于每一行，有5列，每列包含一个超链接。 我要创建的是对每一行进行分组，其格式如下：

rowName（国家1）
column2Title | row1Column2Link
column3Title | row1Column3Link
column4Title | row1Column4Link
column5Title | row1Column5Link

rowName（国家2）
column2Title | row2Column2Link
column3Title | row2Column3Link
column4Title | row2Column4Link
column5Title | row2Column5Link

等等，总共约200个。 如图所示，每个垂直栏的左侧是每个分组中的相同确切文本，只是相应的列标题。 右边是当前行的每一列中存在的内容。 我对VBA不太熟悉，但是我可以自己编写程序而无需任何解释。

Answer 1

假设您的数据从A1开始，则第一行是标题，并且您所在国家/地区的第一列没有空白，这应该可以工作（或至少要点）：

Sub write_stuff()
    Dim iFile As Integer
    Dim sFile As String
    Dim rLoop As Range, r As Range

    sFile = "C:\mytxtfile.txt"
    iFile = FreeFile
    Open sFile For Output As iFile
    For Each rLoop In Range("A2", Range("A1").End(xlDown))
        Print #iFile, rLoop
        For Each r In Range("B1", Range("A1").End(xlToRight))
            Print #iFile, r & "|" & Cells(rLoop.Row, r.Column)
        Next r
        Print #iFile, ""
    Next rLoop

    Close #iFile
    Set rLoop = Nothing
    Set r = Nothing
End Sub