Excel VBA代码,用于确定字符串范围内的最大值

Excel VBA代码,用于确定字符串范围内的最大值,excel,vba,Excel,Vba,我正在尝试编写一个Excel VBA脚本。我在列A2中有一个范围:带字符串的A1000。该范围内的每个字符串都是两个字母后跟一个数字,例如AB12345或CD67890。 我想搜索以AB开头的每个字符串的范围,然后确定这两个字母后面的最大数值是多少。 有人能告诉我该怎么做吗?这应该可以。不过还没有测试过 MaxValue = 0 For i=2 To 1000 If Cells(1, i).Value Like "AB*" Then MaxValue = Applica

我正在尝试编写一个Excel VBA脚本。我在列A2中有一个范围:带字符串的A1000。该范围内的每个字符串都是两个字母后跟一个数字,例如AB12345或CD67890。 我想搜索以AB开头的每个字符串的范围,然后确定这两个字母后面的最大数值是多少。
有人能告诉我该怎么做吗?

这应该可以。不过还没有测试过

MaxValue = 0
For i=2 To 1000
    If Cells(1, i).Value Like "AB*" Then
         MaxValue = Application.Max(MaxValue, CInt(Split(Cells(1, i).Value, "AB")[1]))
    End If
Next i
在B2中输入:


这种方法避免使用数组公式。

请展示一些代码、证据或研究,或者至少是您对如何执行此操作的最佳猜测。在您的范围内循环,测试前2个字符,如果AB,则将值存储到最大变量和最大范围。如果值高于存储值,则下一次迭代将替换最大值和范围。只是开始的时候需要一些东西。你需要多长时间来测试它?目前没有Excel。除了一些可能的语法错误类型外,此代码应该可以正常工作。这取决于你去测试。
=IF( LEFT(A2,2)<>"AB","",--RIGHT(A2,LEN(A2)-2))
=MAX(B2:B1000)