[已解决]求代码：某工作簿包含N张工作表，各工作表的名称须等于该工作表A1单元格内的内容

lingyuncelia

某工作簿包含N张工作表，各工作表的名称须等于该工作表A1单元格内的内容，如何用循环结构写此VBA代码？

最佳答案

月排行榜 / 总排行榜

朱荣兴

2014-11-17 20:57

1. Sub 重命名工资表()
   
2. Dim i As Integer
   
3. For i = 1 To Sheets.Count
   
4. Sheets(i).Name = Sheets(i).Range("a1").Value
   
5. Next
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

qh8600

附件都没有

Select

...... 等于该工作表A1单元格，请问“该工作表”是什么表？

Excel学徒123

看不懂，莫名其妙

朱荣兴

1. Sub 重命名工资表()
   
2. Dim i As Integer
   
3. For i = 1 To Sheets.Count
   
4. Sheets(i).Name = Sheets(i).Range("a1").Value
   
5. Next
   
6. End Sub
   

复制代码

lingyuncelia

Sub sheetname()
Dim sheet As Worksheet
For Each sheet In Worksheets
sheet.Name = sheet.Cells(1, 1)
Next
End Sub

lingyuncelia

朱荣兴 发表于 2014-11-17 20:57

Sub sheetname()
Dim sheet As Worksheet
For Each sheet In Worksheets
sheet.Name = sheet.Cells(1, 1)
Next
End Sub