10,1EXCe宏 ■宏代码 sub学生档豪0 学生档素 Macro 123456789 宏由dk录制,射间:2004-7-18 快捷健:Ctr+s Range A1"). Select Activecelll FormulaR1C1="2001级一班学生档索" Range A2").select Activecelll Formular1c1="学号" Range("B2").Select 10 Activecel formular1C1="姓名" Range( C2").select Activecell formular1c1="班级" 13 Range d2).select 14 Active Cell. FormulaR1c1="性别" 15 Range e2") select 16 ActiveCell FormulaR1c1="籍贯" Range( F2").select 18 Activecell formular1c1="宸蜜"10.1 Excel宏 ◼ 宏代码 ◼ 1 Sub 学生档案() ◼ 2 ' 学生档案Macro ◼ 3 ' 宏由 dk 录制，时间: 2004-7-18 ◼ 4 ' 快捷键:Ctrl+s ◼ 5 Range("A1").Select ◼ 6 ActiveCell.FormulaR1C1 = "2001级一班学生档案" ◼ 7 Range("A2").Select ◼ 8 ActiveCell.FormulaR1C1 = "学号" ◼ 9 Range("B2").Select ◼ 10 ActiveCell.FormulaR1C1 = "姓名" ◼ 11 Range("C2").Select ◼ 12 ActiveCell.FormulaR1C1 = "班级" ◼ 13 Range("D2").Select ◼ 14 ActiveCell.FormulaR1C1 = "性别" ◼ 15 Range("E2").Select ◼ 16 ActiveCell.FormulaR1C1 = "籍贯" ◼ 17 Range("F2").Select ◼ 18 ActiveCell.FormulaR1C1 = "寝室