VBA 中的多个条件

【问题标题】：Multiple conditions in VBAVBA 中的多个条件
【发布时间】：2016-09-11 18:42:30
【问题描述】：

目前我正在将一些数据复制到另一个工作表中，但需要在我的 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"

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

【问题讨论】：

标签： vba excel

【解决方案1】：

将此用于您的 vba If 语句。

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

【讨论】：

谢谢！如果我的 H 列具有诸如“巧克力冰淇淋”之类的值，是否有办法让代码捕获“巧克力冰淇淋”而不是仅捕获“巧克力”，而无需为其编写不同的 Or 语句？
是的，试试Sheets("Sheet1").Cells(i, "H").Value Like "chocolate*"。这是区分大小写的，但您可以将值放在 Lower() 函数中以避免它。 * 为 0 个或多个字符创建比较通配符。