检查工作表中的字符串，并将值放入vba excel中的最后一个coulmn

如何检查整张工作表中的字符串“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。帮助。

您可以使用以下简单公式

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

---

例如，测试A至H列是否包含

FALSE

，然后将

1

写入该单元格。只需根据需要调整A1:H1中的列，然后向下复制公式。

您可以使用以下简单公式

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

---

例如，测试A至H列是否包含

FALSE

，然后将

1

写入该单元格。只需根据您的需要调整A1:H1中的列，然后向下复制公式。

当公式崩溃时会发生什么？你收到了什么错误？在哪里？@Marcucciboy2我没有收到错误，它只是停留在“无响应”状态，然后要求关闭或重新启动。

lCol

和

RowCount

@Marcucciboy2的值是什么？你是否将“显示我们”链接到编辑页面？这很酷。那么价值观是什么呢？它是10行10列还是1000行1000列？当它崩溃时会发生什么？你收到了什么错误？在哪里？@Marcucciboy2我没有收到错误，它只是停留在“无响应”状态，然后要求关闭或重新启动。

lCol

和

RowCount

@Marcucciboy2的值是什么？你是否将“显示我们”链接到编辑页面？这很酷。那么价值观是什么呢？是10行10列还是1000行1000列？