excel - 如何复制 SheetName 并粘贴到定义的范围内？

Question

如何复制当前工作表名称并将其粘贴到定义的范围中？

我的工作表名称始终是 8 个字符的日期 - 例如：03082021

当前要粘贴的工作表的范围是 Y2:Y1000。

标签： excelvba

Answer 1

因为我需要填充与当前数据区域相关的动态范围，该范围每天都在变化，所以我这样做了：

Public Sub Sheetname_Add()
'insert worksheet name into column Y

Range("Y1").Value = "TcktDate"

ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Offset(1, 0). _
Resize(ActiveSheet.UsedRange.Rows.Count - 1, 1).Select

Selection.Cells.Value = ActiveSheet.Name

End Sub