Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 54|回复: 2

[已解决] [已解决]求大神指点 这个代码为什么出错?

[复制链接]
发表于 2017-10-12 17:11 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
For Each sh In Worksheets
Set x = sh.Name
Cells(1, 14) = "日期"
  For i = 2 To 14
  Cells(i, 14) = x
  Next i
Next



就是想将 每个工作表的表名提取出来,并输入在该工作表中的指定位置。Set x = sh.Name  是Name 没有这个属性吗?应该怎么修改呀?
zjdh发布于 2017-10-13 09:08 |显示全部回帖
For Each sh In Worksheets
x = sh.Name
Cells(1, 14) = "日期"
  For i = 2 To 14
  Cells(i, 14) = x
  Next i
Next
发表于 2017-10-13 09:08 | 显示全部楼层    本楼为最佳答案   
For Each sh In Worksheets
x = sh.Name
Cells(1, 14) = "日期"
  For i = 2 To 14
  Cells(i, 14) = x
  Next i
Next
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2017-10-19 02:29 , Processed in 0.062400 second(s), 16 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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