经验直达：
- 请高手帮忙修改excel的宏命令
- excel宏怎么设置
一、请高手帮忙修改excel的宏命令
我看了你的问题：将学生的72个考试表格的数据集中到新的表格中（产生72个表），然后与标准答案作比较 ， 并由此得到每个学生的得分！
在Sheet1里设置一个按钮，并指向下面的VBA：
Sub ouyangff()
Dim Mypath, Myname As String, sht As Worksheet
Application.Calculation = xlManual '关闭自动重算,否则当表里有很多公式时 ， 速度会很慢
Columns("A:A").Select '删除A列原有的内容
Selection.ClearContents
i = 1
Mypath = ThisWorkbook.Path & "" '获取工作表所在的文件夹的路径
Myname = Dir(Mypath, vbDirectory)
Do While Myname <> ""
If Myname <> "." And Myname <> ".." Then
If GetAttr(Mypath & Myname) = vbDirectory Then '是文件夹吗？
Sheet1.Cells(i, 1) = Myname '将文件夹名称留下
i = i1
End If
End If
Myname = Dir '读下一个
Loop
Columns("A:A").Select '选择A列，按学号从小到大排序
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortTextAsNumbers
mm = Val(Right(Cells(1, 1), 3)): nn = Val(Right(Cells([a65536].End(3).Row, 1), 3))
'读取首、尾学号
For i = mm To nn'若原来存在有以学号为名字的表……则删除
For Each sht In Sheets
If Val(sht.Name) = i Then
Application.DisplayAlerts = False
sht.Delete
Application.DisplayAlerts = True
End If
Next
Next
For i = 1 To [a65536].End(3).Row'添加以学号的后三位为名字的表 sheets… 72个表
Set sht = Worksheets.Add(after:=Worksheets(Worksheets.Count), Count:=1)
sht.Name = Right(Sheets(1).Cells(i, 1), 3)
Workbooks.Open Mypath & Sheets(1).Cells(i, 1) & "" & "资产负债表.xls" '打开资产负债表.xls
Workbooks("资产负债表.xls").Sheets("sheet1").Cells.Copy sht.Cells'拷贝到所添加的学生数据表中
Workbooks("资产负债表.xls").Close '关闭文件
Next
Sheets("期末数-B列").Select '将每个学生的B列数据，汇总到"期末数-B列"
n = 3
For i = mm To nn
a$ = i '将数值转为字符串
For j = 6 To 43
Cells(n, j - 4) = Sheets(a$).Cells(j, 2)
Next
n = n1
Next
Sheets("年初数-C列").Select '将每个学生的B列数据，汇总到"年初数-C列"
n = 3
For i = mm To nn
a$ = i
For j = 6 To 43
Cells(n, j - 4) = Sheets(a$).Cells(j, 3)
Next
n = n1
Next
Sheets("期末数-E列").Select '将每个学生的B列数据，汇总到"期末数-E列"
n = 3
For i = mm To nn
a$ = i
For j = 6 To 43
Cells(n, j - 4) = Sheets(a$).Cells(j, 5)
Next
n = n1
Next
Sheets("年初数-F列").Select '将每个学生的B列数据，汇总到"年初数-F列"
n = 3
For i = mm To nn
a$ = i
For j = 6 To 43
Cells(n, j - 4) = Sheets(a$).Cells(j, 6)
Next
n = n1
Next
Application.Calculation = xlAutomatic '打开自动重算
ActiveWorkbook.PrecisionAsDisplayed = False
Calculate
Sheets("学生成绩").Select
End Sub
祝你工作顺利！
二、excel宏怎么设置
【excel宏怎么设置 请高手帮忙修改excel的宏命令】
今天小编为大家介绍一下excel宏设置方法，希望对各位同学有帮助 。
Excel选项设置宏
单击Office按钮，然后单击Excel选项：
单击“信任中心”，单击“信任中心设置”：
单击“宏设置”之后，选择合适的选项后，单击下方的“确定”即可确认宏设置了：
保存文件为启用宏的表
单击“另存为”按钮 ， 或者直接单击Office按钮后 ， 单击“另存为”：
“保存类型”位置选择“Excel 启用宏的工作簿”后，输入并确认文件名后，单击“保存”：
如下图所示的图标类型文件，即是已经启用宏的Excel工作簿文件了：
打开文件时启用宏
打开包含有宏的工作簿后，如果设置为“禁用所有宏 ， 并发出通知”的话，会如下提示 。单击“选项”：
选择“启用此内容”后，单击“确定”，即可在工作簿中启用宏功能：