如何把数据套入已经设计好的表格中

wwqq

我在一个文本文件中有用“，”分隔的上百行数据，现状要套入已经设计好的表格中，如何才能不再调整行宽？ 谢谢！ （我在用文件转换为表格，但要调整行宽。数据格式是一样的）

守柔

你可以这样，将文本文件用WORD打开，或者复制到WORD中。

以下代码适用于将文本文件复制到已经含有设计表格的文档中，并选定这些文本。运行以下代码：

Sub WriteIncell() Dim Temp() As String, MyRange As Range, aCell As Cell, i As Integer, x As Integer On Error Resume Next Application.ScreenUpdating = False With ActiveDocument Set MyRange = Selection.Range Temp = Split(MyRange.Text, "，") x = UBound(Temp) For Each aCell In .Tables(1).Range.Cells If i > x Then Exit For aCell.Range = Temp(i) i = i + 1 Next End With Application.ScreenUpdating = True End Sub 当然，你可以将这些文本放在另一个文档中，只要在MyRange 重新设置一下就可以了。

办公之星

这个，要看到数据源和表格才好说。

或者把“，”转换成换行符，然后转成EXCEL文件，用邮件合并做。