公式引用外部Excel表，如何操作？如何实现？

公式引用外部Excel表，操作与实现详解

一、引言

在Excel中，我们经常需要引用外部Excel表中的数据来进行计算和分析。通过公式引用外部Excel表，可以大大提高工作效率。本文将详细介绍如何操作和实现公式引用外部Excel表。

二、操作步骤

1. 打开目标Excel工作簿，选中需要引用外部Excel表公式的单元格。

2. 在公式编辑栏中，输入“=”，然后点击“数据”选项卡。

3. 在“数据”选项卡中，找到“获取外部数据”组，点击“来自工作表”按钮。

4. 在弹出的“获取外部数据-来自工作表”对话框中，选择“浏览”按钮，找到并选中外部Excel表。

5. 点击“确定”按钮，系统会自动弹出“导入数据”对话框。

6. 在“导入数据”对话框中，选择“将数据添加到现有工作表”或“将数据放置在新的工作表中”，然后点击“确定”按钮。

7. 此时，外部Excel表中的数据会出现在目标Excel工作簿中，同时公式也会自动填充到选中的单元格。

三、实现方法

1. 使用VBA代码实现

（1）打开VBA编辑器，在“插入”选项卡中，选择“模块”。

（2）在打开的模块窗口中，输入以下代码：

```vba

Sub 引用外部Excel表()

Dim wsTarget As Worksheet

Dim wsExternal As Worksheet

Dim rngExternal As Range

Dim strExternalPath As String

Dim strExternalSheet As String

' 设置目标工作表和外部工作表

Set wsTarget = ThisWorkbook.Sheets("Sheet1")

strExternalPath = "C:\path\to\external.xlsx"

strExternalSheet = "Sheet2"

' 打开外部工作表

Set wsExternal = Workbooks.Open(strExternalPath).Sheets(strExternalSheet)

' 引用外部工作表中的数据

Set rngExternal = wsExternal.Range("A1:B10")

wsTarget.Range("A1:B10").Value = rngExternal.Value

' 关闭外部工作表

wsExternal.Close SaveChanges:=False

End Sub

```

（3）保存并关闭VBA编辑器，在Excel中运行该宏，即可实现公式引用外部Excel表。

2. 使用Power Query实现

（1）打开目标Excel工作簿，选中需要引用外部Excel表公式的单元格。

（2）在公式编辑栏中，输入“=”，然后点击“数据”选项卡。

（3）在“数据”选项卡中，找到“获取外部数据”组，点击“来自查询”按钮。

（4）在弹出的“获取外部数据-来自查询”对话框中，选择“来自文件”选项，然后点击“浏览”按钮。

（5）找到并选中外部Excel表，点击“确定”按钮。

（6）在弹出的“查询编辑器”中，选择需要引用的数据，然后点击“关闭并加载”按钮。

（7）此时，外部Excel表中的数据会出现在目标Excel工作簿中，同时公式也会自动填充到选中的单元格。

四、相关问答

1. 问题：如何设置外部Excel表路径？

答案：在VBA代码中，通过变量`strExternalPath`设置外部Excel表路径；在Power Query中，通过“获取外部数据-来自查询”对话框中的“浏览”按钮选择外部Excel表。

2. 问题：如何设置外部工作表？

答案：在VBA代码中，通过变量`strExternalSheet`设置外部工作表名称；在Power Query中，在“查询编辑器”中选择外部工作表。

3. 问题：如何关闭外部工作表？

答案：在VBA代码中，使用`wsExternal.Close SaveChanges:=False`关闭外部工作表；在Power Query中，关闭“查询编辑器”后，外部工作表会自动关闭。

4. 问题：如何引用外部Excel表中的公式？

答案：在VBA代码中，使用`wsExternal.Range("A1:B10").Value = rngExternal.Value`引用外部Excel表中的公式；在Power Query中，将外部Excel表中的数据加载到目标Excel工作簿后，公式会自动填充到选中的单元格。

通过以上操作和实现方法，我们可以轻松地在Excel中引用外部Excel表，提高工作效率。希望本文对您有所帮助。