求教大家，红色代码具体含义是什么。

炽幻恶魔

求教大家，红色代码具体含义是什么，尽量说的直白点，非常感谢。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RowsNo, Arr, D, I&, Cel, Prompt
Application.EnableEvents = False '停用事件的代码
RowsNo = Worksheets("会员提成").Shapes("新增一行").TopLeftCell.Row - 1
Arr = Worksheets("送网费").Range("F2:F" & [F2].End(4).Row)
Set D = CreateObject("scripting.dictionary")
For I = 1 To UBound(Arr) '循环A列
    If Not Arr(I, 1) = 0 And Not Arr(I, 1) = "" Then
        D(Replace(Arr(I, 1), " ", "")) = ""
    End If
Next
For Each Cel In Range(Cells(2, 2), Cells(RowsNo, 2))
    If D.exists(Replace(Cel.Value, " ", "")) Then
        Prompt = MsgBox("身份证号“" & Cel & "”已参与送网费，不得再算提成！")
        Range(Cells(RowsNo, 1), Cells(RowsNo, 3)).ClearContents
    End If
Next
Worksheets("交班表").Cells(5, 6) = Application.Count(Range(Cells(2, 3), Cells(RowsNo, 3)))
Application.EnableEvents = True '启用事件的代码
End Sub

不知道为什么

字典的基本用法，熟悉下字典基础就明白了

炽幻恶魔

不知道为什么 发表于 2018-6-21 10:24
字典的基本用法，熟悉下字典基础就明白了

哇！不得不说，你这答案太精辟，我老奶奶都不扶，舅服你……

向東

Arr = Worksheets("送网费").Range("F2:F" & [F2].End(4).Row) '就是提取F列数据
Arr(I, 1) '逐个提取此列每个数据
Replace '替换掉 数据中的空格
D(..)="" '语法：Dic(Key) = Item 将[关键词/项目]同时加入字典 (忽略关键词不存在错误)
If D.exists(Replace(Cel.Value, " ", "")) Then '指定的关键字是否存在