1、首先，我们在Excel表格中输入如图内容，以方便在VBA中进行读取和处理操作。如图：
2、进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。
3、接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。
4、在打开的“属性”面板中对“按钮”和“标签”进行相关设置，其中包括“名称”和“标题”。
5、双击“获取Excel数据”按钮，在打开的代码编辑窗口中，输入以下代码：Private Su水瑞侮瑜b GetD锾攒揉敫ate_Click()Dim i As IntegerDim j As StringFor i = 2 To 8 '数据位于2至8行j = j & Chr(10) & Chr(13) & Sheets(1).Cells(i, 1) & " " & Sheets(1).Cells(i, 2)'读取每行数据'格式化输出Next iLabel1.Caption = Label1.Caption & jEnd Sub
6、双击“Sheet1”工作表，在弹出的代码编辑窗口中输入如下代码：Private Sub Worksheet_Activate()UserForm1.ShowEnd Sub
7、返回Excel表格，激活Sheet1工作表，就可以看到窗口弹出，同时点击“获取Excel数据”按钮，就可以读取Excel中的数据啦。
