将label 相同内容最多的label设为一种颜色

Option Explicit

Private Sub Command1_Click()
Dim o As Object

'清背景色
For Each o In Form1.Controls
    If TypeName(o) = "Label" Then
        o.BackColor = &H80000005
    End If
Next o

End Sub

Private Sub Command2_Click()

Dim s(32) As String
Dim sj(32) As Long
Dim i As Long, j As Long
Dim k As String
Dim n As Long

j = 0

'搜索所有标签，并统计内容的数据
Dim o As Object
For Each o In Form1.Controls
    If TypeName(o) = "Label" Then       '为标签
        k = o.Caption                   '取内容
        For i = 1 To j                  '搜索是否保存了
            If s(i) = k Then            '如果存在
                Exit For                '退出循环
            End If
        Next i
        If i > j Then                   '如果没的搜索到
            s(i) = k                    '取标签内容
            j = j + 1                   '标签种类计数 +1
        End If
        sj(i) = sj(i) + 1               '统计 +1
    End If
Next

'搜索所有的统计结果，找出最大的那个下标
n = 1
For i = 2 To j
    If sj(n) < sj(i) Then
        n = i
    End If
Next i

'搜索所有的标签，找到 统计结果最多的那个标签，然后加颜色
For Each o In Form1.Controls
    If TypeName(o) = "Label" Then
        k = o.Caption
        If k = s(n) Then
            o.BackColor = &HFF00&
        End If
            
    End If
Next

End Sub