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 应该在上面的行中
有点混乱,但非常感谢任何帮助!谢谢!