[已解决]批量添加工作表名称

心灵有约

批量添加工作表名称.rar (15.01 KB, 下载次数: 8)

2022-2-14 22:16 上传

点击文件名下载附件 说明：

• 同一工作簿中有若干工作表
• 每一工作表的格式均相同或不同，每一工作表的行数不定
• 需在每一工作表的最左列添加工作表名称列
  

方法：vba

最佳答案

月排行榜 / 总排行榜

Yunyun123

2022-2-15 10:54

心灵有约 发表于 2022-2-15 10:42
还有一点，我需要将工作表名添加至各表的每一行中，不仅第二行

Public Sub title()
Dim i As Integer
Dim CountSht As Integer
Dim CountRow As Integer

CountSht = Sheets.Count
For i = 1 To CountSht
Sheets(i).Activate
CountRow = Cells(Rows.Count, 1).End(3).Row
Columns(1).Select
Selection.Insert
Cells(1, 1).Value = "工作表名称"
Range(Cells(2, 1), Cells(CountRow, 1)).Value = ActiveSheet.Name
Next i
End Sub

跳转到最佳答案楼层

Yunyun123

Public Sub title()
Dim i As Integer
Dim CountSht As Integer

CountSht = Sheets.Count
For i = 1 To CountSht
Sheets(i).Activate
Columns(1).Select
Selection.Insert
Cells(1, 1).Value = "工作表名称"
Cells(2, 1).Value = ActiveSheet.Name
Next i

End Sub

心灵有约

Yunyun123 发表于 2022-2-15 08:00
Public Sub title()
Dim i As Integer
Dim CountSht As Integer

还有一点，我需要将工作表名添加至各表的每一行中，不仅第二行

Yunyun123

心灵有约 发表于 2022-2-15 10:42
还有一点，我需要将工作表名添加至各表的每一行中，不仅第二行

Public Sub title()
Dim i As Integer
Dim CountSht As Integer
Dim CountRow As Integer

CountSht = Sheets.Count
For i = 1 To CountSht
Sheets(i).Activate
CountRow = Cells(Rows.Count, 1).End(3).Row
Columns(1).Select
Selection.Insert
Cells(1, 1).Value = "工作表名称"
Range(Cells(2, 1), Cells(CountRow, 1)).Value = ActiveSheet.Name
Next i
End Sub