请教老师，这个调用MATCH函数的VBA代码怎么写

Question

如题所述

Answer 1

Sub rename()
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Cells(1, 1).Value
Next
End Sub
假设每张sheet都以A1单元格内容命名

Sub Rename()
For i = 1 To 100
Sheets(i).Name = Cells(i, 1)
Next
End Sub
假设每张sheet都以sheet1的第一列依次命名