Excel：扫描具有多个条件的列

Question

我刚开始是一名新程序员，我正在尝试创建Vba代码来扫描Excel中的以下数据。

我们假设

Apple = 123456

Apple Juice = 987654

Pear = 234567
Pear Juice = 987654

Orange = 345678

Orange Juice = 987654

将给出每个项目的代码，但我想要的是编写一个程序来检测特定代码并为其指定名称（苹果，苹果汁等）。如果首先出现“123456”，则其下方的单元格将被指定为“Apple Juice”。如果首先出现“234567”，则将其分配为“梨汁”。这对我来说很有挑战性，因为Juice类别拥有相同的“987654”，而Fruit则没有分配给它的独特FruitNo。

但是，我在编写扫描上述单元格的代码时遇到了困难。我尝试过使用ActiveCellOffset，但似乎没有按照我想要的方式运行。

The following codes are what I have tried so far.

And this is the outcome I would like to have. The red letters are the names that the program is suppose to come up with.

Answer 1

从

更改您的代码

If FruitNo = 987654 And ActiveCell.Offset(-1, 0) = 123456 Then

到

If FruitNo = 987654 And Range("A" & i).Offset(-1, 0) = 123456 Then

应解决您的问题（同样适用于另一个IF条件）。但是，这也可以使用公式来实现。