电子表格中使用VBA代码提取指定信息到相应表中对应位置

wuchengde

请看附件：
点击成绩统计表里的按钮，要求完成以下功能：
在执行下面代码时：
  For i = 1 To 4
    Sheets("bj").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = i
    ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value

  在执行“ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value”这一句之前，根据i的值，复制班级序号等于i的信息到自动新建的1、2、3、4表中，比如当i=1时，以表“bj”为模板新建工作表并命名为1后，复制表“八上期中”里班级为“八（1）”的全部学生信息到表1中。再执行去公式只保留数据和文本。