Question

我收到错误type mismatch

我在这里做矩阵，如果一行包含"x"，那么代码应该保持一行可见。应隐藏没有"x"的行。变量hideEmptyRows从按钮触发。

If (hideEmptyRows = True) Then

        For i = 8 To lastRow

            If Range(Cells(i, 3), Cells(i, lastColumn)).value = "x" Then
                cell.EntireRow.Hidden = True
            End If

        Next i

    End Ifenter code here

Answer 1

Range类型的对象没有Value这样的属性。您需要遍历整个范围，以检查范围内的任何单元格是否具有＆＃34; x＆＃34;的值。

您应该添加到您的代码中：

ifContains = false ' variable, which indicates if the value is present in current row
For j = 3 To lastColumn
    If Cells(i, j).Value = "x" Then
        ifContains = true
    End If
Next j

VBA Excel搜索范围内的值，如果找到则隐藏行

1 个答案: