求批量修改同一工作簿的所有工作表名称为每一个工作表的同一单元格的数据的vba~~~~

Question

如题所述

Answer 1

Sub 命名()
   Dim a As Worksheet '我是变量a，属于工作表类型
   For Each a In Worksheets '所有的我，都在这个工作簿中
       a.Name = a.Range("A1") '麻烦您把我的A1里的内容，当做我的名字，送给我吧
   Next '一个个都循环完了，麻烦您歇歇吧
End Sub '谢谢您！祝您晚安！

Answer 2

代码：

sub 改名()
 for each sht in thisworkbook.sheets
sht.name = sht.[a1]  '每个sheet的A1单元格
next
end sub

本回答被网友采纳