如何从Excel工作表中导出数据以创build排列成特定格式的单元格数据的文本文件？
我不太熟悉Excel。 我想知道是否有一种方法，我可以采取电子表格，并生成一个新的文本文件的数据与特定的文本格式。 我所拥有的是在行中有200多个国家名称的工作表。 对于每一行，有5列，每列包含一个超链接。 我正在创build的是每行的格式如下所示：
rowName（国家1）
column2Title | row1Column2Link
column3Title | row1Column3Link
column4Title | row1Column4Link
column5Title | row1Column5Link
rowName（国家2）
column2Title | row2Column2Link
column3Title | row2Column3Link
column4Title | row2Column4Link
column5Title | row2Column5Link
总共约200个。 如图所示，每个垂直条的左边是每个分组中相同的确切文本，只是各自的列标题。 右边是当前行的每一列中存在的东西。 我对VBA非常熟悉，但是我可以在没有解释的情况下编写这个程序。
假设您的数据从A1开始，第一行是标题，第一列与您的国家没有空白，这应该工作（或至less给你的要点）：
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