仅当当前行为奇数时才运行 For 循环

Question

我正在尝试运行一个循环来创建一些数据，如图所示。我正在尝试运行这个简单的循环，但只希望它运行奇数行或偶数行。我有一些想法如何做到这一点，但不知道如何将其转化为代码。

例如，我不确定 Excel VBA 是否可以处理以下内容：如果单元格值 = S AND Row is Odd then...

另一件事我认为也许“范围”可以定义为奇数或偶数值，但没有运气。这可能吗？

Dim typecheck As Range

Set typecheck = Range("B1:B60") 'set the range itself to odd/even? or no range at all? just individually?

For Each cell In typecheck

    If cell.Value = "S" Then 'and odd row?

    cell.Offset(0, 1).Value = "_status"

    End If

Next

预期结果是，循环将遍历第 1-60 行，并且仅当范围内的单元格的值为 S 并且该行是奇数行时才会产生结果。

Answer 1

这将起作用：Mod 函数为您提供余数。如下使用它。

Dim typecheck As Range

Set typecheck = Range("B1:B60") 

For Each cell In typecheck

    If cell.Value = "S" And Not cell.Row Mod 2 = 0 Then 'For Odd Row

    cell.Offset(0, 1).Value = "_status"

    End If

Next

它只会在奇数行上通过 if 条件。对于偶数行，只需从 if 条件中删除 Not。

我们检查行号除以 2 后的余数，如果 0 则为偶数行，否则为奇数行。