[已解决]如何用宏返回某列第一个负值所在的行数

leobu

本人刚开始学VBA编程，碰到一个定位的问题向大家请教。如图所示：工作表中有一列数，想通过程序确定从某行开始第一个负数出现的行号。例如，从第二行开始，第一个负数出现在第5行，这个第5行的行号怎么用程序定位，并返回在B2单元格里？同理，从第7行开始，第一个负数出现在第10行；从第14行开始，第一个负数出现在第19行；以上结果怎样分别返回到B7和B14单元格里？这个过程如何用VBA程序来实现？如果工作簿中有若干工作表都要进行以上计算，能实现吗？

附件请看上传的excel压缩文件。

谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2014-12-25 11:22

如何用宏返回某列第一个负值所在的行数2.rar (13.82 KB, 下载次数: 9)

2014-12-25 11:22 上传

点击文件名下载附件


Function lastRow(x As Range) As Integer
    Dim r%, i%
    lastRow = -1    '表示找不到
    r = ActiveSheet.UsedRange.Rows.Count
    For i = x To r
        If Cells(i, 1) < 0 Then lastRow = i: Exit For
    Next i
End Function

跳转到最佳答案楼层

as0810114

Sub test()
Dim i, maxrow, s
maxrow = Cells(Rows.Count, 1).End(xlUp).Row
s =val( InputBox("请输入开始行号"))
For i = s To maxrow
    If Cells(i, 1) < 0 Then
     MsgBox "第" & s & "行开始，第一个负数所在行为第" & i & "行"
     Exit For
     End If
Next
End Sub

Excel学徒123

1. Sub test()
   
2.     Dim i%
   
3.     For i = 1 To Cells(Rows.Count, 1).End(3).Row
   
4.         If IsNumeric(Cells(i, 1)) And Cells(i, 1).Value < 0 Then
   
5.             MsgBox "第一个负数所在行为:" & i
   
6.             Exit Sub
   
7.         End If
   
8.     Next i  
   
9. End Sub
   

复制代码

针对你这个附件做的，测试了，没有问题~~{:1012:}

leobu

真的非常感谢as0810114和Excel学徒123这么热心、及时的回复，个人感觉as0810114给的程序更接近我的目标一些，但是有些问题可能我没有表达清楚，所以进一步说明一下：如修正图片所示，“起始行”已经在b列给定了，不希望再出现对话框来手工输入起始行的行号。现在需要在c列自动返回“起始行之后出现第一个负值的行号”，本例中是6、11、20自动填入在红圈里，麻烦高手们再帮我看看。

爱疯

如何用宏返回某列第一个负值所在的行数2.rar (13.82 KB, 下载次数: 9)

2014-12-25 11:22 上传

点击文件名下载附件


Function lastRow(x As Range) As Integer
    Dim r%, i%
    lastRow = -1    '表示找不到
    r = ActiveSheet.UsedRange.Rows.Count
    For i = x To r
        If Cells(i, 1) < 0 Then lastRow = i: Exit For
    Next i
End Function

爱疯

额。。。函数名意思起反了，楼主自己改吧

leobu

感谢诸位的热情帮助！