VBA-用于将数据从Excel导出到文本（带有分隔符的逐个单元格）

Question

我对VBA有疑问。 我正在尝试创建用于将我的Excel工作表导出到txt文件的宏。 >我有一张工作表，其中有一些记录，我想在新行中以列名作为分隔符的方式逐行获取它们。 应该是这样的：

"column name1" 

 1value_col1 

"coumn name2"

1value_col2

"column name 1"

2value_col1

"column name2"

2value_col2

等等，直到文档末尾。

感谢您提供类似建议的任何建议示例。

Answer 1

制作另一个工作表，如示例所示，在其中格式化数据

=Data!A$1
=OFFSET(Data!A1;ROUNDDOWN(ROW()/(no_of_columns*2);0);0)
=Data!A$2
...

或者，如果您想要一个宏：

Dim c As Long
For i = 2 To Range("A1").End(xlDown).Row
   For j = 1 To Range("A1").End(xlToRight).Column
      Worksheets("Out").Range("A1").Offset(c).Value = Cells(1, j)
      c = c + 1
      Worksheets("Out").Range("A1").Offset(c).Value = Cells(i, j)
      c = c + 1
   Next j
Next i

然后，只需将工作表另存为txt：

ActiveWorkbook.SaveAs Filename:= "C:\Book1.txt", FileFormat:=xlTextMSDOS,CreateBackup:=False