Office中国论坛/Access中国论坛

标题: 电子表格中使用VBA代码提取指定信息到相应表中对应位置 [打印本页]

作者: wuchengde 时间: 2018-1-13 13:33
标题: 电子表格中使用VBA代码提取指定信息到相应表中对应位置
请看附件：
点击成绩统计表里的按钮，要求完成以下功能：
在执行下面代码时：
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中。再执行去公式只保留数据和文本。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)