如何用VBScript处理Excel中A、B列的重复值与未售出状态标记

实现逻辑 #

• 用字典对象统计A列每个值的出现次数，判断是否重复
• 同步记录每个A列值是否存在售出记录（示例默认B列非空即为已售出，可按需调整）
• 遍历数据行，在C列标记结果：
  • A列值重复 → 标记"duplicate"
  • A列值从未售出 → 标记"na"
  • 既不重复也已售出 → 留空（可自定义其他标记）

完整VBScript代码 #

' 创建Excel应用对象
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True ' 设为False可后台执行，不显示Excel界面

' 打开目标工作簿，替换为你的文件实际路径
Set objWorkbook = objExcel.Workbooks.Open("C:\Your\File\Path\data.xlsx")
' 获取第一个工作表，也可通过名称指定：Worksheets("Sheet1")
Set objWorksheet = objWorkbook.Worksheets(1)

' 获取A列最后一行数据的行号
lastRow = objWorksheet.Cells(objWorksheet.Rows.Count, "A").End(-4162).Row

' 创建字典，存储A列值的出现次数和售出状态
Set valueDict = CreateObject("Scripting.Dictionary")

' 第一次遍历：统计数据
For i = 2 To lastRow ' 从第2行开始，跳过表头
    currentVal = objWorksheet.Cells(i, "A").Value
    soldState = objWorksheet.Cells(i, "B").Value
    
    If Not valueDict.Exists(currentVal) Then
        ' 首次出现，初始化计数为1，售出状态为False
        valueDict.Add currentVal, Array(1, False)
    Else
        ' 已存在，计数加1
        newCount = valueDict(currentVal)(0) + 1
        valueDict(currentVal) = Array(newCount, valueDict(currentVal)(1))
    End If
    
    ' 更新售出状态：如果当前行B列非空，标记该值已售出
    If soldState <> "" Then
        valueDict(currentVal) = Array(valueDict(currentVal)(0), True)
    End If
Next

' 第二次遍历：标记结果到C列
For i = 2 To lastRow
    currentVal = objWorksheet.Cells(i, "A").Value
    valCount = valueDict(currentVal)(0)
    hasSold = valueDict(currentVal)(1)
    
    If valCount > 1 Then
        objWorksheet.Cells(i, "C").Value = "duplicate"
    ElseIf Not hasSold Then
        objWorksheet.Cells(i, "C").Value = "na"
    Else
        objWorksheet.Cells(i, "C").Value = ""
    End If
Next

' 保存并关闭文件
objWorkbook.Save
objWorkbook.Close
objExcel.Quit

' 释放对象
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
Set valueDict = Nothing

MsgBox "标记完成！"

自定义说明 #

• 替换代码中的文件路径为你的Excel文件实际路径
• 可修改售出状态判断逻辑（比如把soldState <> ""改成soldState = "已售出"）
• 如果表头不在第1行，调整遍历的起始行号

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