Bonnie描述了将文件导入Excel时发生的常见问题。导入的文件是一个扫描的文本文件,导入过程很好,但有一个小故障:在原始文档中包裹文本的一列中,该文本现在在工作表中占据几行。 Bonnie正在寻找一种将这些行组合回该列中单个单元格的方法。

有两种方法可以完成此操作。如果您不必经常这样做,那么最好采用公式化方法。只需使用与号(&)即可合并要合并的行的内容:

=C6 & " " & C7 & " " & C8 & " " & C9

结果是将所有文本合并到一个单元格中。您可以将此结果复制到剪贴板,然后使用“选择性粘贴”将其放入需要的最终单元格中。最后,您可以删除不再需要的原始多行。

如果您需要多次执行这种类型的串联操作,则一个简单的宏可能会有所帮助:

Sub Combine()

Dim J As Integer

If Selection.Cells.Count > 1 Then         For J = 2 To Selection.Cells.Count             Selection.Cells(1).Value = _               Selection.Cells(1).Value & " " & _               Selection.Cells(J).Value             Selection.Cells(J).Clear         Next J     End If End Sub

若要使用此宏,请选择要连接的单元格,然后运行宏。将所有单元格的内容组合到选择中的第一个单元格中,然后清除其他单元格中的所有内容。

宏不会删除任何行;那留给你做。但是,它确实可以快速合并内容,如果您为宏分配快捷键,则合并速度甚至更快。

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(2417)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本: