如何在 Excel 2010 工作表名称中包含行数？

Question

是否可以在工作表名称中包含 Excel 工作表（包含数据）的行数？目前名称看起来像 "Widgets"，我希望它们看起来像："Widgets (n)" 第一行是 header，所以总行数是 n-1。谢谢。

Answer 1

我建议的唯一方法是通过宏保存。这样你就可以获得行数（这里无疑讨论了多种方法）并创建一个附加行数的保存字符串。

唯一的缺点是它每次都会创建一个新文件（因为文件名会改变。）您可以使用相同的宏将旧文件移动到存档文件夹或删除它们 - 但是这将是要记住的事情。

希望对您有所帮助

Answer 2

也许：

Sub range_reporter()
  Dim r As Range
  Dim nLastRow As Long
  ActiveSheet.UsedRange
  Set r = ActiveSheet.UsedRange

  nLastRow = r.Rows.Count + r.Row - 1
  ActiveSheet.Name = ActiveSheet.Name & "(" & nLastRow - 1 & ")"
End Sub

但是，计数将包括非空行中可能为空的行。

如何在 Excel 2010 工作表名称中包含行数？

How do you include the number of rows in an Excel 2010 worksheet name?

excel

vba

excel-2010