vba - 检查工作表中的字符串并将值放在 vba excel 的最后一列中

Question

如何检查整个工作表中的字符串“False”并将“1”放在字符串出现的那一行的最后一列中？

我试过这个：

For j = 13 To lCol
    For i = 5 To RowCount
        If Sheet9.Cells(i, j).Value = "False" Then
            Sheet9.Cells(i, lCol + 1).Value = 1
        Else
            Sheet9.Cells(i, lCol + 1).Value = 0
        End If
    Next i
Next j

但它只会让我的 Excel 崩溃。帮助。

标签： vbaexcel

Answer 1

您可以使用一个简单的公式，例如

=IF(COUNTIF(A1:H1,FALSE)>0,1,0)

测试例如 A 到 H 列是否包含 aFALSE然后写入1该单元格。只需根据您的需要调整列A1:H1并将公式复制下来。