含数字的字符串大小比较

6739912

如题，谢谢帮忙

x-xx-xx

你问题写反了

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, color, max(1), s(1), t
  color = Array(vbYellow, vbRed)
  For i = 1 To Cells(Rows.Count, "a").End(xlUp).row
    If Cells(i, "a").Interior.color = color(0) Then
      t = Split(Cells(i, "a"), "-")
      If max(0) < Val(t(1)) Then max(0) = Val(t(1)): s(0) = t(1)
    End If
    If Cells(i, "a").Interior.color = color(1) Then
      t = Split(Cells(i, "a"), "-")
      If max(1) < Val(t(1)) Then max(1) = Val(t(1)): s(1) = t(1)
    End If
  Next
  If max(0) > 0 Then Debug.Print color(0), s(0) '黄色
  If max(1) > 0 Then Debug.Print color(1), s(1) '红色
End Sub

EiffelXu22

写得比较简单，不知道是不是你要的效果呢。

grf1973

Sub tt()
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To [a65536].End(3).Row
        clr = Cells(i, 1).Interior.Color
        t = Val(Split(Cells(i, 1), "-")(1))
        If d(clr) < t Then d(clr) = t
    Next
    For Each clr In d.keys
        s = s & Chr(10) & "颜色代号" & clr & "，最大值为" & d(clr)
    Next
    MsgBox Mid(s, 2)
End Sub

6739912

4楼是我想要的效果
谢谢大家了