用vba提取一列数中第一个满足条件的数值

发布网友发布时间：2022-04-21 17:12

共3个回答

热心网友时间：2022-06-17 02:57

假如将满足条件的数复制到第2工作表的A1单元格，代码如下：
Cells(Application.Match(12.5, Range("B:B"), -1) + 1, 1).Copy Sheets(2).Range("A1")

热心网友时间：2022-06-17 02:58

Sub AA()
Dim i
For i = 1 To Range("b65536").End(xlUp).Row
If Cells(i, "B") < 0.125 Then
Cells(i, "A").Copy Sheets(2).[a1]
Exit Sub
End If
Next
End Sub

代码复制到截图表，结果复制到 Sheet2

热心网友时间：2022-06-17 02:58

Sub COPY_RowNO()
Dim i As Integer
i = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2) < 0.125 Then
Cells(1, 4) = i
Exit Sub
Else
i = i + 1
End If
Loop
End Sub

行数结果放到D1单元格。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com