返回目录：excel表格制作
1、首先，在Excel表格中输入如图内容，以方便在VBA中进行读取和处理操作。
2、进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。
3、接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。
4、在打开的“属性”面板中对“按钮”和“标签”进行相关设置，其中包括“名称”和“标题”。
5、双击“获取Excel数据”按钮，输入以下7a64e4b893e5b19e330代码：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”工作表，在弹出的代码编辑窗口中输入如下代码：Private Sub Worksheet
-Activate()UserForm1.ShowEnd Sub。
8、返回Excel表格，激活Sheet1工作表，就可以看到窗口弹出，同时点击“获取Excel数据”按钮，就可以读取Excel中的数据啦。
不用那样zd，直接用版：
sheet3.range("A1:W600")=sheet2.range("A1:W600") 就行了。
这样权试试,:
range("A1:W600")=Wb.Sheets(2).Range("A1:W600")
`
在B24单元格输入
=VLOOKUP(B23,'[R134a物性调用抄.xls]Sheet1'!A:B,2,0)
公式表示：在R134a物性调用.xls工作簿的Sheet1工作表A列袭，添加匹配与当前工作表的zdB23相同的单元格，并返回对应第2列（R134a物性调用.xls工作簿的Sheet1工作表B列)的数据
1、点击Excel界面左下角的录制宏按钮录制宏。
2、在【宏名】处输入一个有意义的名称，帮助以后识别该宏的功能。本例复按照默认名称命名。选择将宏录制制在【个人宏工作簿】并点击【确定】按钮。
3、马上点击Excel界面左下角的停止录制宏按钮停止宏的录制。
4、按Alt+F11打开VBE界面，如下图。
5、在代码部分输入或者粘贴执行某项特定功能的代百码。
6、在功能区（Ribbon）上鼠标右键，选择【自定义快速访度问工具栏】。
7、向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。
8、双知击“获取Excel数据”按钮，在打开的代码编辑窗口中，输入以下代码。
9、双击“Sheet1”工作表，在弹出的代码编辑窗口中输入如下代码。
10、返回Excel表格，激活Sheet1工作表，就可以看到窗口弹出，道同时点击“获取Excel数据”按钮，就可以读取Excel中的数据啦。