关于Excel的工作表的重命名问题。

来源：百度知道编辑：UC知道时间：2024/06/17 20:25:40

用VBA，如何将选中的10个工作表依次命名为“2.7.1” "2.7.2" "2.7.3"一直到“2.7.10"

Sub abc()
For i = 1 To 10
Sheets(i).Name = "2.7." & i
Next
End Sub

For Each s In ActiveWindow.SelectedSheets
i = i + 1
s.Name = "2.7." & i
Next

不用那么复杂，又不多，直接双击标签输入就可以了