Question

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

nav li{
    display: table-cell;
    padding: 0; /* Changed padding from 10px to 0 */
    color:#FFF;
    text-align: center;
    font-weight: 500;
    border-right: 2px solid #364F69;
    border-bottom: 3px solid #324961;
}
nav a{
    padding: 10px;
    display:block; /* Added */
}

等等到文件结尾。

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

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

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

1 个答案: