尝试附加带有数字的文本

Question

我的工作表中有一个ID Cell，它是一个数字，用于控制行ID。我使用以下代码行：

ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + 1

每次插入新行时增加ID号。每次我的宏运行时，它都适用于增加该单元格，但我想在数字的前面附加工作表Tab Name。那时我的宏显示（运行时错误＆＃39; 13＆＃39;，类型不匹配），其中包含以下行：

ActiveCell.FormulaR1C1 = TabName & ActiveCell.FormulaR1C1 + 1

TabName由以下函数生成：

    Function TabName() As String
     Application.Volatile
     TabName = ActiveSheet.Name
    End Function

我有什么建议可以让它发挥作用吗？

此致 S Dimm

Answer 1

由于您已经在使用ActiveCell property，因此您可能希望继续使用ActiveSheet property。

ActiveCell = _
  ActiveSheet.Name & Replace(ActiveCell.Value, ActiveSheet.Name, vbNullString) + 1

您必须删除Workbook.Name property才能在增量中添加1，然后再将新号码作为工作表名称添加前缀。