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

waiting321 · 发表于 2018-7-1 01:39

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

bjjdghyf · 发表于 2018-7-1 09:06

提问要上附件啊

waiting321 · 发表于 2018-7-1 09:19

补传附件谢谢~~

ynzsvt · 发表于 2018-7-1 09:30

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 · 发表于 2018-7-1 12:57

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

巨浪1 · 发表于 2018-7-8 21:06

多谢分享，多谢分享

		自动登录	找回密码
密码			免费注册