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

溺水的老虎1

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

跳转到最佳答案楼层

zjdh

For Each sh In Worksheets
x = sh.Name
Cells(1, 14) = "日期"
  For i = 2 To 14
  Cells(i, 14) = x
  Next i
Next

exc姜

学习中