VBA中的多个条件

Question

目前我正在将一些数据复制到另一个工作表上但需要在我的if函数中输入多个条件 - 在我的工作簿中，H列有巧克力，草莓，香草 - 我只想要巧克力和草莓要转移到下一张纸上。到目前为止，我有，

If Sheets("Sheet1").Cells(i, "H").Value = "chocolate" 

如果列H有巧克力或草莓，如何告诉VBA移动整行？我试过了 -

If Sheets("Sheet1").Cells(i, "H").Value = "chocolate" Then
ElseIf If Sheets("Sheet1").Cells(i, "H").Value = "strawberry"

但它最终只保留了草莓行。

Answer 1

将此用于您的vba If语句。

If Sheets("Sheet1").Cells(i, "H").Value = "chocolate" Or Sheets("Sheet1").Cells(i, "H").Value = "Strawberry" Then
...
Your code
End If