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