excel - 如果名称等于不同工作表上的字符串，则将值加 1

Question

我正在尝试制作某种库存。因此，当我在第二张表上添加某个产品的名称时，它会将我在 E 行第一张表中该产品的库存增加 1。这是放在第二张表中的名称列表，而不是像在此处的 VBA 代码中尝试的仅 1 个名称。

完成列表后，我应该能够清除工作表 2 并且值保持保存。
当我尝试这个时，它给出了一个错误，我只是不知道如何让它在整个列表中工作。

Private Sub CommandButton1_Click()
    Dim x As Integer
    x = Sheets("Sheet1").Cells(1, "E").Value
    For Each cell In Sheets(Sheet1).Range("A:A")
        If cell.Value = Sheets("Sheets2").Cells(1, "A").Value Then
            x = x + 1
        End If
    Next cell
End Sub

Answer 1

你在想 x表示单元格，但它是一个内存变量，以 Sheet1 上 E1 中的值开头。

如果您希望范围增加，则将变量设置为范围并将其设置为所需的范围，或者一起跳过:

Private Sub CommandButton1_Click()
    Dim cell as Range
    With Worksheets("Sheet1")
        For Each cell In Intersect(.Range("A:A"),.UsedRange)
            .Range("E1").value = .Range("E1").value + Application.WorksheetFunction.COUNTIF(Worksheets("Sheet2").Range("A:A"),cell.Value)
        Next cell
    End With
End Sub