04 excel vba 在表格的底部输入学生姓名和成绩

自动弹出输入姓名和成绩的输入框，并且直接在表格底部输入姓名和成绩

用到了表格两个命令  :

end(xlDown)移动表格最后一行
Offset(1,0) 下面一行的单元

代码如下：

'出错提醒 Option Explicit 语句在模块级别中使用，强制显式声明模块中的所有变量。Option Explicit
'语句必须写在模块的所有过程之前。如果模块中使用了 Option Explicit，则必须使用 Dim、Private、
'Public、ReDim 或 Static 语句来显式声明所有的变量。如果使用了未声明的变量名在编译时会出现错误。
Option Explicit

'在表格的最后一行添加学生的名字和成绩

Sub 练习()

Dim 姓名 As String, 成绩 As Integer

姓名 = InputBox("请输入员工姓名")
成绩 = InputBox("请输入成绩")

'end(xlDown)移动表格最后一行
'Offset(1,0) 下面一行的单元

Range("B2").End(xlDown).Offset(1, 0).Select

Selection.Value = 姓名

Selection.Offset(0, 1).Value = 成绩

MsgBox "完成"

End Sub