Question

我有一个模块，该模块采用工作表名称并将其插入每张工作表的字段中（有80多个工作表）。

我想做的是将工作表名称插入该单元格，并填充到每张工作表的最后一行，但卡住了。

以下是我正在使用的公式，但出现错误：

 Sub nameSheet()
 For Each x In Worksheets
 x.Range("F2" & LastRow) = x.Name
 Next x
 End Sub

非常感谢您的帮助。

Answer 1

如@BigBen所说，您需要定义LastRow

有一个特殊的单元格属性，称为xlCellTypeLastCell。使用方便，因为您的最后一个单元可以在任何地方。另外，我会执行Lastrow + 1，这样您就不会覆盖任何内容。

 Sub nameSheet()
 Dim x As Worksheet

 For Each x In Worksheets
    lastrow = x.Cells.SpecialCells(xlCellTypeLastCell).Row
    x.Range("F" & lastrow + 1) = x.Name
 Next x

 End Sub

在多个工作表的列中的VBA填写工作表名称

1 个答案: