Question

用VBA语句在EXCEL实现： sheet1的A列从A5开始由上向下的第一个空白单元格的行数

Answer 1

Sub dd()
   MsgBox "A5单元格以下第一个空白单元格的行号是:" & ActiveSheet.Range("A5").End(xlDown).Row + 1
End Sub

追问

不对

追答

那不对？
Sub dd()
MsgBox "A5单元格以下第一个空白单元格的行号是:" & ActiveSheet.Range("A5").End(xlDown).Row + 1
End Sub

追问

追答

Sub dd()
    MsgBox "A5单元格以下第一个空白单元格的行号是:" & ActiveSheet.Range("A5").End(xlDown).Row + IIf(ActiveSheet.Range("a6").Value = "", -1, 1)
End Sub

追问

如果是图片里的，从A10“序号”单元格（A10，A11是合并单元格）往下第一个空格（即A15），怎么改？