最大范围

Question

我正在使用excel vba，我有一个数字序列的列，这些数字在序列的开始处受到一个单词的限制，并且在结尾处有一个空白单元格。 （即Kip 1 2 3 4 5“空白单元格”Kip 1 2 3 4 5 6 7 8“空白单元格”......）

我试图通过这样做获得每个数字序列的最大值，但它不起作用。有人可以帮我解决问题吗？

`

Sub Maxim()

Dim rg1 As Range

Dim rg2 As Range

Dim i As Integer

For i = 12 To 70000

If (Cells(i, 5) = "kip") Then
Set rg1 = Range(Cells(i + 1, 5))
End If

If (Cells(i, 5) = "") Then
Set rg2 = Range(Cells(i - 1, 5))
Cells(i, 7) = Max(rg1, rg2)
End If

Next i
End Sub

`

P.S。我是VBA中的新编码

谢谢

Answer 1

我在G1中使用了以下公式：

=IF(E1="Kip",MAX(INDEX($E1:$E$500,MATCH("Kip",$E1:$E$500,0)+1):INDEX($E2:$E$500,MATCH(TRUE,INDEX($E2:$E$500="",0),0)-2)),"")

并复制下来。