Question

Excel怎么把数据生成描述性文本，每一行列导出到txt或者word中，需要什么函数公式？

左边图是表格数据，右边图是我想要导出的数据。可以用什么公式实现？





Answer 1

答：公式不易实现，我利用VBA编写了一段代码，实现了将数据导出到D盘中名为"输出结果.txt"的文件中。

按ALT+F11组合键，打开VB窗口，执行"插入"-"模块"，复制下面代码进去，在所示工作表为活动工作表的情况下，按F5运行程序即得到结果。

Sub demo()
    Dim Cell As Range
    Dim CurRow As Range
    Dim i As Long, j As Long
    Dim TempStr As String
    Open "D:\" & "输出结果.txt" For Output As #1
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If Not IsEmpty(Cells(i, "A")) Then
            Print #1, Cells(i, "A") & "，";
            Set CurRow = Range("B" & i & ":T" & i).SpecialCells(xlCellTypeVisible)
            For Each Cell In CurRow
                If Not IsEmpty(Cell) Then
                    If InStr(1, Cells(1, Cell.Column), "（") > 0 Then
                        TempStr = TempStr & Split(Cells(1, Cell.Column), "（")(0) & Cell.Text & Replace(Split(Cells(1, Cell.Column), "（")(1), "）", "") & "，"
                    Else
                        TempStr = TempStr & Cells(1, Cell.Column) & Cell.Text & "，"
                    End If
                End If
            Next
            TempStr = Left(TempStr, Len(TempStr) - 1) & "；"
            Print #1, TempStr
        End If
    Next
    Close #1
    MsgBox "导出完成！"
End Sub

Answer 2

Word与Excel表联合使用。
使用word做一个模板，通过邮件合并功能，获取Excel表的相应数据。

Answer 3

你好可以使用邮件合并的方法来做。

追问

你好，具体怎么做，刚才百度了一下，是发邮件的。好像跟这个关系不大？

追答

不要为名称所左右，它的功能就能实现你的需要。比如下面

这就是邮件合并的效果。

追问

麻烦你了。请问邮件合并在哪里，没有找到。可否有简单的步骤？非常感谢。现在只有10财富值，求步骤，我会采纳的。