答:公式不易实现,我利用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
Word与Excel表联合使用。
使用word做一个模板,通过邮件合并功能,获取Excel表的相应数据。
你好可以使用邮件合并的方法来做。