Excel工作表内单元格和工作表自动命名

发布网友发布时间：2022-05-16 04:33

共3个回答

热心网友时间：2023-10-11 10:47

插入模块——粘贴

Sub 自动命名()
Dim i
For i = 1 To Sheets.Count - 1
Sheets(i + 1).Cells(1, 1) = Mid(Sheets(i).Cells(1, 1), 1, find("-",Sheets(i).Cells(1, 1))) & Mid(Sheets(i).Cells(1, 1), find("-",Sheets(i).Cells(1, 1))+1,len(Sheets(i).Cells(1, 1))) + 1
Dim i1
For i1 = 1 To Sheets.Count
Sheets(i1).Name = Sheets(i1).Cells(1, 1)
Next i1
Next i
End Sub

热心网友时间：2023-10-11 10:47

'可以自动的添加当月天数张工作表，并且在A1第一个显示工作表名称。 Sub a工作簿中含有31个工作表运行EXCEL，工具－－－宏－－－Visual Basic编辑器

热心网友时间：2023-10-11 10:48

Sub lululu()
For i = 1 To Sheets.Count - 1
Sheets(i + 1).Name = Sheets(i).Cells(1, 1)
Next
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com