技术问询：按部门生成含单个字母的唯一客户Token（Customer ID）

嘿，看你已经开始写VBA代码来生成客户Token了，刚好我之前处理过类似的需求，给你完善一套完整的方案，完全贴合你要的「部门前缀+唯一3位数字」、可用于传单打印的要求～

核心逻辑 #

每个Token由部门前缀字母 + 3位自增数字组成，同一部门内数字严格递增不重复，再加上唯一的部门前缀，就能保证全局所有客户的Token都是独一无二的。我们用Excel工作表来持久化记录各部门的最新编号，避免重启后丢失计数。

完整代码实现 #

' 生成指定部门的唯一客户Token
Function GenerateCustomerToken(deptPrefix As String) As String
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim maxNum As Integer
    Dim newNum As Integer
    Dim token As String
    
    ' 指定用于记录编号的工作表（可以改成你喜欢的名字）
    Set ws = ThisWorkbook.Worksheets("TokenTracker")
    
    ' 查找部门记录的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    maxNum = 0
    
    ' 遍历已有的部门记录，获取当前最大编号
    For i = 2 To lastRow ' 第一行是表头：A列=部门前缀，B列=当前最大编号
        If ws.Cells(i, "A").Value = deptPrefix Then
            maxNum = ws.Cells(i, "B").Value
            Exit For
        End If
    Next i
    
    ' 生成新编号：首次生成从001开始，后续自动+1
    newNum = maxNum + 1
    ' 强制格式化为3位数字，不足补0（比如1→001，12→012）
    token = deptPrefix & Format(newNum, "000")
    
    ' 更新记录表中的编号
    If maxNum = 0 Then
        ' 该部门无记录，新增一行
        ws.Cells(lastRow + 1, "A").Value = deptPrefix
        ws.Cells(lastRow + 1, "B").Value = newNum
    Else
        ' 更新已有部门的最大编号
        ws.Cells(i, "B").Value = newNum
    End If
    
    GenerateCustomerToken = token
End Function

' 示例：如何调用这个函数
Sub TestTokenGeneration()
    ' 生成开发部（前缀A）的Token
    Dim devToken As String
    devToken = GenerateCustomerToken("A")
    MsgBox "开发部新客户Token：" & devToken ' 输出类似A001、A002...
    
    ' 生成社会部（前缀D）的Token
    Dim socialToken As String
    socialToken = GenerateCustomerToken("D")
    MsgBox "社会部新客户Token：" & socialToken ' 输出类似D001、D002...
    
    ' 生成土地与许可部（前缀E）的Token
    Dim landToken As String
    landToken = GenerateCustomerToken("E")
    MsgBox "土地与许可部新客户Token：" & landToken ' 输出类似E001、E002...
End Sub

前期准备步骤 #

1. 在你的Excel工作簿里新建一个工作表，命名为TokenTracker
2. 在A1单元格输入「部门前缀」，B1单元格输入「当前最大编号」（作为表头）
3. 这个表第一次可以是空的，代码会自动为新部门添加记录

关键细节说明 #

• 唯一性保障：通过TokenTracker表持久化存储每个部门的最新编号，每次生成时自动递增，绝对不会出现重复Token
• 格式统一：用Format(newNum, "000")确保数字部分始终是3位，完美匹配你给出的示例格式（A102、D012这类）
• 打印适配：生成的Token可以直接写入你的客户信息表对应列，后续批量打印传单时直接引用该列内容即可
• 扩展性：如果以后新增部门，只需要调用函数时传入新的前缀字母（比如财务部用"F"），不需要修改核心代码

额外优化建议 #

• 为了防止误改TokenTracker表，可以右键该工作表→「保护工作表」，只允许必要的编辑操作
• 如果是多用户协作场景，可以把TokenTracker放在共享工作簿或者Access数据库中，避免多人同时操作导致的编号冲突

内容的提问来源于stack exchange，提问作者user9674664