[已解决]判断由A列所有“数量”的单元格开始至下一个“数量”之间的所有单元格不能为空！！

daxindianqi

各位大神，求助怎样判断由A列所有“数量”的单元格开始至下一个“数量”之间的所有单元格，连续有值且不能为隔空？？

最佳答案

月排行榜 / 总排行榜

scl5801

2016-7-23 15:14

看看行不
Public Sub 找空()
Dim ar, i, s
ar = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
100
For i = UBound(ar) To 1 Step -1
   If ar(i, 1) = "" Then
      s = s & "," & i & "行"
   ElseIf ar(i, 1) = "数量" Then
      Exit For
   End If
Next i
If i = 1 Then GoTo 101
ar = Range("a1:a" & Cells(i, 1).End(xlUp).Row)
GoTo 100
101
MsgBox "空行有:" & s
End Sub

跳转到最佳答案楼层

scl5801

看看行不
Public Sub 找空()
Dim ar, i, s
ar = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
100
For i = UBound(ar) To 1 Step -1
   If ar(i, 1) = "" Then
      s = s & "," & i & "行"
   ElseIf ar(i, 1) = "数量" Then
      Exit For
   End If
Next i
If i = 1 Then GoTo 101
ar = Range("a1:a" & Cells(i, 1).End(xlUp).Row)
GoTo 100
101
MsgBox "空行有:" & s
End Sub

liyizhe000

不太懂什么意思！请再说的明白一点！

daxindianqi

scl5801 发表于 2016-7-23 16:31
跳转

恩，谢谢。