Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1704|回复: 2

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

[复制链接]
发表于 2017-10-12 17:11 | 显示全部楼层 |阅读模式
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 没有这个属性吗?应该怎么修改呀?
最佳答案
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
回复

使用道具 举报

发表于 2017-10-15 09:35 | 显示全部楼层
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 04:34 , Processed in 0.363012 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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