1
    ElseIf numCol1 = numCol2 Then
            Dim i As Integer
            For i = 14 To 33
                If Cells(i, 6) <> "" And Cells(i, 7) = "" Then
                MsgBox "Please indicate if subs are allowed.", vbCritical
                Cancel = True
                Exit Sub
                End If
            Next i
    Else
           'do something

如果 numCol1 = numCol2 它是有效的(这只是计算每列中的值的数量)并且应该转到 Else 位但是,我想检查每个旁边的单元格是否被填充

例如

  2               2
Col1            Col2
Value1          Value1
Value2          Value2

这是有效的,每列上面的2是每列有多少个值的计数

  2               2
Col1            Col2
Value1          Value1
Value2          (blank)
(blank)         Value2

这是无效的,即使计数仍然是两个,最后一个 value2 应该在上面的行中

有点混乱,但非常感谢任何帮助!谢谢!

4

1 回答 1

2

您需要对每一行执行有效性测试。正如您所指出的,简单地计算每列中的值是不可靠的。

在第三列中添加一个公式。像这样的东西会起作用:

=IF(A1=B1,0,1)

复制公式并将其粘贴到需要评估的所有行中。

现在总结所有公式的结果。如果总和大于 0,则您有无效的行。

于 2013-07-31T16:15:20.267 回答