你可以使用这个函数：

Public Function GetNextRCANumber(Ref As Range) As String
  Dim s As String, i As Integer, y As Integer, n As Integer
  With Ref
    s = .Worksheet.Cells(.Columns(1).Rows.Count, .Column).End(xlUp)
  End With
  i = Len(s)
  y = CInt(Mid$(s, i - 6, 2))
  If Year(Now()) > y + 2000 Then
    GetNextRCANumber = Format$(Now(), "yy") & "-0001"
  Else
    n = CInt(Mid$(s, i - 3)) + 1
    GetNextRCANumber = y & Format$(n, "-0000")
  End If
End Function

输入：参考-“RCA编号”列表的列。
输出：类似“23-0006”的字符串。
该函数查找“RCA编号”列表列中的最后一个非空单元格，并在当前年份内递增该编号，或在新的年份从1开始递增。
该函数可以用作工作表函数以及工作表函数（e. g.“RCA编号”在“Sheet 1！A：A”）：

Worksheet: GetNextRCANumber(Sheet1!A:A)
VBA: GetNextRCANumber([Sheet1!A:A])

您可以将="PHX - RCA " & GetNextRCANumber(Sheet1!A:A)从'RCA Number：'单元格向右放置，当'RCA Number'列表前进时，此单元格将始终显示下一个RCA Number。