EXCEL VBA按记号提取内容排序

K1：MO3为记号范围2.K5：M14为数据范围... K1：MO3为记号范围
2.K5：M14为数据范围展开

 我来答

1个回答

#热议# 为什么说不要把裤子提到肚脐眼？

庆年工坊
推荐于2016-07-28 · 知道合伙人互联网行家

庆年工坊
知道合伙人互联网行家

采纳数：4233 获赞数：8928

无

向TA提问私信TA

关注

展开全部

Sub s()
    Set d = CreateObject("scripting.dictionary")
    For i = 11 To 353
        For j = 1 To 3
            If Cells(j, i).Interior.ColorIndex = 7 Or Cells(j, i).Interior.ColorIndex = 12 Then
                Exit For
            End If
        Next
        If j <= 3 Then
            For j = 5 To 14
                t = Cells(j, i).Text
                If t <> "" Then
                    d(t) = d(t) + 1
                End If
            Next
        End If
    Next
    n = 27
    Do While d.Count
        c = -1
        For Each k In d.keys
            If d(k) > c Then
                c = d(k)
                kk = k
            End If
        Next
        Cells(16, n) = kk
        Cells(17, n) = c
        d.Remove (kk)
        n = n + 1
    Loop
End Sub