我现在要一次修改多个EXCEL工作表的名字，改成1日，2日，3日。。。以此类推， 求VBA 代码

我现在要一次修改多个EXCEL工作表的名字，改成1日，2日，3日。。。以此类推， 求VBA 代码

dim i, xlSheet1
i=1
For Each xlSheet1 In thisworkbook.Sheets
xlSheet1.name=i & "日"
i=1+i
next

代码如下： 注意：单元格中的日期如2016年1月1日，如果是默认日期格式，无法选出，只能是文本格式才行。 sub main() set reg = createobject("vbscript.regexp") reg.pattern = "\d+年\d+月\d+日" reg.global = true f = dir(thisworkbook.path & "\*.xlsx") do while f <> "" workbooks.open (thisworkbook.path & "\" & f) for each rng in activeworkbook.sheets(1).range("a1:z100") '根据情况修改工作表和搜索区域 set mh = reg.execute(rng.value) if mh.count > 0 then msgbox mh(0) & " 行号为：" & rng.row & " 列号为：" & rng.column msgbox activeworkbook.name end if next set mh = nothing activeworkbook.close f = dir loop end sub