Excel允许您仅通过确保在“选项”对话框的“视图”选项卡上选中了“公式”复选框，即可在工作表中显示公式。这是打印显示用于创建工作表的公式的工作表的便捷方法。

但是，仅当工作表中使用的公式很短时，此方法才有效。如果公式较长，那么了解显示了公式的工作表可能很快就会变得很麻烦。

一种解决方案是从Excel中提取公式并将其放在诸如Word之类的程序中。为什么要单词？因为您可以轻松设置文本属性的格式（例如字体和磅值），以最好地显示公式。如果需要，还可以添加其他文本来解释公式。

将公式从Excel导入Word的最简单方法是遵循以下步骤：

。在Excel中，从“工具”菜单中选择“选项”。 Excel将显示“选项”对话框。

。确保选择了“查看”选项卡。 （请参见图1。）

。确保已选中“公式”复选框。

。单击确定。 Excel现在应该显示公式。

。选择要将其公式复制到Word的单元格。

。按Ctrl + C将单元格复制到剪贴板。

。切换到Word。

。将插入点放置在要添加信息的位置。

。从编辑菜单中选择选择性粘贴。 Word将显示“选择性粘贴”对话框。 （请参见图2。）

。选择“无格式文本”选项。

。单击确定。

此时，您的公式已在Word中，您可以根据需要使用它们。尽管此方法效果很好，但是如果要复制大量公式，一遍又一遍地执行此操作可能会很麻烦。

如果遇到这种情况，则可以受益于一个宏，该宏可以实际提取公式并将其放置在Word文档中。下面的Excel宏可以做到这一点：

Sub WriteFormulasToWord()

Dim Wrd As New Word.Application     Dim CellTxt As String     Dim CellAddr As String     Dim SRow As Long     Dim SCol As Long

Wrd.Visible = True     Wrd.Documents.Add

Wrd.Selection.TypeText Text:="List of the Formulas of Sheet """ _       & ActiveSheet.Name & """ in Workbook """ _       & ActiveWorkbook.Name & """."

Wrd.Selection.TypeText Text:=vbCrLf & vbCrLf

'Change the following line to pick the number of columns     For SCol = 1 To 5         'Change the following line to pick the number of rows         For SRow = 1 To 10             If Cells(SRow, SCol).HasFormula Then                 CellAddr = Chr(64 + SCol) & Trim(Str(SRow)) & vbTab                 CellTxt = ActiveSheet.Cells(SRow, SCol).Formula                 Wrd.Selection.TypeText Text:=CellAddr & CellTxt                 Wrd.Selection.TypeText Text:=vbCrLf             End If         Next SRow         Wrd.Selection.TypeText Text:=vbCrLf     Next SCol End Sub

在此宏中有几件事要注意。首先，您可以通过更改同时使用SCol和SRow的For语句来更改宏工作的行和列的范围。在上面显示的示例中，宏从第1到5列（A到E）和第1到10行提取公式。

此外，除非您设置Excel宏来处理对Word对象的引用，否则此宏将无法正常工作。您可以通过在VBA编辑器中按照以下步骤进行操作：

。从工具菜单中选择引用。 VBA显示“引用”对话框。 （请参见图3。）

。滚动引用列表，直到看到一个称为Microsoft Word对象库的对象。 （引用名称中可能包含版本号，例如Microsoft Word 11.0对象库。）

。确保选中对象库左侧的复选框。

。单击确定。

使用宏实际提取公式的一个优点是，您可以完全自定义Word文档中的内容。对于此宏，将插入单元格的地址，然后插入一个制表符，然后是实际公式。您可以轻松地将插入的信息更改为特定实例中所需的任何信息。

注意：

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

链接：/ excelribbon-ExcelTipsMacros [点击此处在新的浏览器标签中打开该特殊页面]。

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

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

链接：/ excelribbon-Pulling_Formulas_from_a_Worksheet [从工作表中提取公式]。