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

Question

我正在尝试编写Excel VBA脚本。我有一个带有字符串的列（A2：A1000）中的范围。范围中的每个字符串都是2个字母后跟一个数字（例如＆＃34; AB12345＆＃34;或＆＃34; CD67890＆＃34;）。 我想搜索以＆＃34; AB＆＃34;开头的每个字符串的范围，然后确定2个字母后面的最大数值是多少。 有人能告诉我应该怎么做吗？

Answer 1

这应该可以解决问题。虽然没经过测试。

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

Answer 2

在 B2 中输入：

=IF( LEFT(A2,2)<>"AB","",--RIGHT(A2,LEN(A2)-2))

并复制下来。然后在另一个单元格中输入：

=MAX(B2:B1000)

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