设为首页收藏本站Access中国
Office中国(www.office-cn.net),专业Office论坛

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表 发新帖
查看: 37|回复: 0

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

[复制链接]
发表于 6 天前 | 显示全部楼层 |阅读模式
请看附件:
点击成绩统计表里的按钮,要求完成以下功能:
在执行下面代码时:
  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中。再执行去公式只保留数据和文本。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /6 下一条

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2018-1-19 21:52 , Processed in 0.288097 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表