如果满足双重条件，则添加到特定字典

Question

我正在尝试创建一个代码，让我可以检查列 A 和 C 是否都匹配“汽车”和“红色”。如果是，我想在我现有的DicoRedCar 中填写汽车品牌作为项目，价格作为关键是我的代码：

Sub Dicofill()
    Dim DicoRedCar As Object
    Set DicoRedCar = CreateObject("Scripting.Dictionary")
    Dim Startcell As Range 
    Set Startcell = Data.Range("A1") 
    i = i + 1 

    If Startcell.Offset(i, 0).Value = "Car" And Startcell.Offset(i, 2).Value = "Red" Then 
        DicoRedCar.Add Startcell.Offset(i, 0).Value, Startcell.Offset(i, 1).Value
    End If

End Sub

第1栏是车型，第2栏是汽车品牌，第3栏是汽车颜色，第6栏是汽车价格。

但它不喂 Dico。我知道在 A24 范围内出现了一辆红色汽车，但没有任何反应。我试图用 MsgBox 检查 Then 语句，但它什么也没给我。我试过了，但什么也没发生：

If Startcell.Offset(i, 0).Value = "Car" And Startcell.Offset(i, 2).Value = "Red" Then
    Msgbox("found a Red Car")
End If

所以我认为阻塞点首先来自我的“If...Then”语句

Answer 1

这可能会让你开始：

Sub Dicofill()

    Dim DicoRedCar As Object
    Dim Startcell   As Range
    Dim myCell      As Range

    Set DicoRedCar = CreateObject("Scripting.Dictionary")
    Set Startcell = Range("A1")

    For Each myCell In Range("A1:A10")
        If myCell.Offset(0, 1) = "Car" And myCell.Offset(0, 2) = "Red" Then
            'it is a good idea to check whether the key exists before adding it:
            DicoRedCar.Add myCell.Offset(0, 1), myCell.Offset(0, 4)
        End If
    Next myCell

End Sub

它遍历 Range("A1:A10") 并检查列 B 中的“Car”和列 C 中的“Red”。如果找到它们，列 B 将作为键添加到字典 DicoRedCar 中，而列 E 是值。

下一步，请考虑在添加之前检查字典中是否存在键，因为它会给您一个错误。这是怎么做的：

dict.Exists(Key)
e.g. If DicoRedCar.Exists(myCell.Offset(0,1)) Then

Answer 2

假设Data 是对工作表的引用。以下将向下扫描A 列并在到达第一个空单元格时停止：

Sub Dicofill()
Dim DicoRedCar As Object
Set DicoRedCar = CreateObject("Scripting.Dictionary")
Dim Startcell As Range

Set Startcell = Data.Range("A1")
Do Until Startcell.Offset(i + 1, 0).Value = ""
    i = i + 1
    If Startcell.Offset(i, 0).Value = "Car" And Startcell.Offset(i, 2).Value = "Red" Then
        DicoRedCar.Add Startcell.Offset(i, 0).Value, Startcell.Offset(i, 1).Value
    End If
Loop

End Sub