VBA数组遍历完成后设置单元格为绿色的技术需求

核心调整说明 #

• 移除低效的Select/Selection操作，直接通过对象引用操作单元格，提升运行效率
• 将指定单元格设置为绿色的逻辑移至数组/字典遍历完成后，满足需求
• 优化数据范围获取逻辑，避免固定大区域带来的资源浪费

完整代码 #

Dim ArrayDictionaryofItems1 As Object, Items1 As Variant, i1 As Long, Item1 As Variant
Set ArrayDictionaryofItems1 = CreateObject("Scripting.Dictionary")
Dim ws As Worksheet
Set ws = ActiveSheet ' 建议替换为具体工作表名，比如Set ws = ThisWorkbook.Worksheets("Sheet1")

' 复制D列数据到C列并去重
ws.Range("D34:D10000").Copy
ws.Range("C4:C10000").PasteSpecial Paste:=xlPasteValues
ws.Range("C4:C10000").RemoveDuplicates Columns:=1, Header:=xlNo
' 统计C4:C350非空单元格数量到C2
ws.Range("C2").Value = Application.WorksheetFunction.CountA(ws.Range("C4:C350"))

' 将去重后的C列数据存入数组，再加载到字典
Items1 = ws.Range(ws.Range("C4"), ws.Cells(ws.Rows.Count, "C").End(xlUp)).Value
For i1 = 1 To UBound(Items1, 1)
    ArrayDictionaryofItems1(Items1(i1, 1)) = 1
Next

' 遍历字典中所有去重后的项
For Each Item1 In ArrayDictionaryofItems1.keys
    ws.Range("D34").AutoFilter Field:=1, Criteria1:=Item1
    ' 可在此添加每个Item对应的业务逻辑，原代码未完成部分可补充
Next

' 遍历完成后，将指定单元格设置为绿色（示例为D34，可按需修改）
ws.Range("D34").Interior.Color = vbGreen ' 也可使用RGB(0,255,0)或颜色代码5296274

关键细节提示 #

• 替换ActiveSheet为具体工作表对象，能避免因当前激活表变化导致的错误
• vbGreen是VBA内置绿色常量，三种绿色写法效果一致，可任选其一
• 若目标单元格不是D34，直接修改最后一行的单元格地址即可

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