请求编写Excel VBA代码：为指定列重复文本分配连续唯一数值

这个需求完全可以用VBA实现，下面是适配你需求的代码片段，附带详细说明，方便你嵌入现有宏中：

Sub AssignSequentialNumbers()
    Dim ws As Worksheet
    Dim inputRange As Range, cell As Range
    Dim textDict As Object
    Dim currentNum As Integer
    
    ' 替换成你要操作的工作表名称（比如"计算表"）
    Set ws = ThisWorkbook.Worksheets("你的目标工作表名")
    ' 替换成你的输入列范围（比如B3:B96）
    Set inputRange = ws.Range("B3:B96")
    Set textDict = CreateObject("Scripting.Dictionary")
    currentNum = 1
    
    For Each cell In inputRange
        ' 处理空单元格：输出为空
        If Trim(cell.Value) = "" Then
            cell.Offset(0, 1).Value = "" ' Offset(0,1)代表当前单元格右侧一列，即C列，可按需调整
        Else
            ' 检查文本是否已存在于字典中
            If Not textDict.Exists(cell.Value) Then
                ' 首次出现且未超过90，分配递增数字
                If currentNum <= 90 Then
                    textDict.Add cell.Value, currentNum
                    cell.Offset(0, 1).Value = currentNum
                    currentNum = currentNum + 1
                Else
                    ' 超过90时，后续新文本也用90（可根据需求改成报错/跳过）
                    cell.Offset(0, 1).Value = 90
                End If
            Else
                ' 重复文本，分配已有的数字
                cell.Offset(0, 1).Value = textDict(cell.Value)
            End If
        End If
    Next cell
End Sub

嵌入现有宏的步骤： #

• 打开Excel，按Alt + F11打开VBA编辑器
• 找到你现有宏所在的模块，双击打开
• 将上面的代码粘贴到模块中（如果现有宏是单个Sub过程，也可以把核心逻辑直接复制到现有Sub的合适位置，或者在现有宏里调用AssignSequentialNumbers）
• 修改代码里的关键参数：
  1. 把"你的目标工作表名"替换为实际执行计算的工作表名称
  2. 如果输出列不是输入列的右侧一列，调整Offset(0,1)的第二个参数（比如输出到D列就改成Offset(0,2)）

关键逻辑说明： #

• 用Scripting.Dictionary记录首次出现的文本和对应数字，确保重复文本分配相同数值，查找效率高
• 自动识别空输入单元格，对应输出也为空
• 加入数值不超过90的限制，递增到90后，后续新文本统一分配90（可根据需求修改规则）
• 输入范围、输出列、工作表都能根据你的实际情况灵活调整

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