Private Sub test()
Dim rowNo As Long, rng As Range
Set rng = Sheet2.Range("A:A").Find("", , , xlValue)
If Not rng Is Nothing Then
rowNo = rng.Row '行号
End If
End Sub
选中a列全部数据,格式——条件格式——单元格数值等于0——格式——图案——红色等。
上传带行列号的有数据示例的表格截图,清楚说明已知条件,达成什么样的结果,才能给你准确的答案。