百度中回答别人提的问题,但回答的内容不知啥原因违背回答规则,不让显示。
例如A列83和89之间,小于B列76,首次遇到的是73即第7行;再如A列89和73之间,小于B列66,首次遇到的是59即第12行
用宏方法解决:
Sub schs()
Dim i As Integer 'b行循环值
Dim s As Integer 'b行下一个不为0的值
Dim n As Integer 'A行循环
Dim y As Integer '记录B行当前不为0的行供A行使用
Dim isBlank As Boolean
Dim z1 As Integer 'A行数据行第一位数值
Dim z2 As Integer 'Bh行条件行第一位
Dim z3 As Integer
y = 2
For i = 3 To 30
isBlank = Cells(i, 2).Value <> "" Or i = 30
If isBlank Then
For n = y To i - 1
If Cells(n, 1).Value < Cells(y, 2) Then
Cells(y, 3) = Cells(n, 1)
Exit For
End If
Next n
y = i
End If
Next i
End Sub
百度提问网址: