求个批量重命名工作表的代码

waiting321

工作簿中有31张工作表，现在是按“5月1日”到“5月31日”命名的，想批量改为“6月1日”到“6月30日”，求个代码。谢谢。

bjjdghyf

提问要上附件啊

waiting321

补传附件  谢谢~~

ynzsvt

Sub 改表格名称()
Dim Arr, i&, Dic As Object, Sh As Worksheet, Rng As Range, j&
Set Dic = CreateObject("Scripting.Dictionary")
Set Rng = [a2:b4]
Arr = Rng
For i = 1 To UBound(Arr)
  For j = 1 To 2
   Arr(i, j) = Rng(i, j).Text
  Next j
Next i
For Each Sh In Worksheets
  Dic(Sh.Name) = Empty
Next Sh
For i = 1 To UBound(Arr)
  If Dic.Exists(Arr(i, 1)) And Not Dic.Exists(Arr(i, 2)) Then
   Worksheets(Arr(i, 1)).Name = Arr(i, 2)
   Dic.Key(Arr(i, 1)) = Arr(i, 2)
  End If
Next i
Set Dic = Nothing
End Sub

bjjdghyf

05月份现金账-2018.rar (62.66 KB, 下载次数: 3)

2018-7-1 12:56 上传

点击文件名下载附件

，没考虑月份天数

巨浪1

多谢分享，多谢分享