如何用函数或VBA调用(引用)另外一个工作表的数据

1、首先，在Excel表格中输入如图内容，以方便在VBA中进行读取和处理 *** 作。

2、进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。

3、接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。

4、在打开的“属性”面板中对“按钮”和“标签”进行相关设置，其中包括“名称”和“标题”。

5、双击“获取Excel数据”按钮，输入以下代码：Private Sub GetDate_Click() Dim i As Integer Dim j As String For i = 2 To 8 '数据位于2至8行 j = j &Chr(10) &Chr(13) &Sheets(1).Cells(i, 1) &" 。

6、 &Sheets(1).Cells(i, 2) '读取每行数据 '格式化输出 Next i Label1.Caption = Label1.Caption &jEnd Sub。

7、双击“Sheet1”工作表，在d出的代码编辑窗口中输入如下代码：Private Sub  Worksheet

-Activate()UserForm1.ShowEnd Sub。

8、返回Excel表格，激活Sheet1工作表，就可以看到窗口d出，同时点击“获取Excel数据”按钮，就可以读取Excel中的数据啦。

此题是vba代码运用的问题。这里不想给出代码，而是给出方法，授人以渔。

excel的vba确实能给人方便，提高效率。但它的内置规则、控件引用确实挺考人记忆力。我们不是百科全书，如何不记忆代码规则实现编程？

答案是用excel的宏。你可以测试一下，在工作簿1中录制宏，在a1乱打字，然后点击另外一个工作簿，在b1乱打字，结束录制。

当打开这个宏的时候，是不是多了一段。

Windows("×××.xls").Activate

Range("A1").Select

……

这个是不是满足你需要解决的问题。

---