在线等！！如何批量让工作表名字变成A1单元格里第7位开始的内容

显示全部楼层 · 2010-10-12 19:21:28

Excel里面
但是不能直接弄在工作表里啊，而且还是要一个个粘贴进去

千问 · 2010-10-12 19:21:28

Private Sub CommandButton1_Click()Dim a As String, i As IntegerFor i = 1 To Sheets.Counta = Sheets(i).Cells(1, 1).Valuea = Mid(a, 7, Len(a) - 6)On Error GoTo eSheets(i).Name = aNextExit Sube: MsgBox "有重复或空名"a = "暂时名" & iResume NextExit SubEnd Sub

千问 · 2010-10-12 19:21:28

Sub 命名工作表()For Each sh In Sheetssh.Name = Mid(sh.[a1].Value, 7, 99)NextEnd Sub放入模块运行即可

千问 · 2010-10-12 19:21:28

=MID(A1,7,4)假设数据源在A列，公式的意思是：从第7位开始，选4位数。