搜索结果改变排列，排序？

migang

如题，大神先看看附件哈，我也描述不清！~~
[url=][/url]

[url=]我是附件，求解，谢谢.rar[/url]

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, dic, m, s
  Set dic = CreateObject("scripting.dictionary")
  s = "黄可可"
  arr = [a1].CurrentRegion.Resize(, 3)
  ReDim brr(1 To UBound(arr, 1), 1 To 5)
  For i = 2 To UBound(arr, 1)
    If arr(i, 1) = s Then brr(1, 1) = arr(i, 3): brr(1, 2) = s
    If arr(i, 3) = s Then
      m = m + 1
      brr(m, 3) = arr(i, 1): brr(m, 4) = arr(i, 2)
    End If
    dic(arr(i, 3)) = dic(arr(i, 3)) + 1
  Next
  For i = 1 To m
    If dic(brr(i, 3)) Then brr(i, 5) = dic(brr(i, 3)) Else brr(i, 5) = 0
  Next
  If m > 0 Then [g7].Resize(m, UBound(brr, 2)) = brr
End Sub

migang

一把小刀闯天下 发表于 2019-12-1 12:20
Option Explicit

Sub test()

感谢大神，测试可用，我自己消化消化，有不懂的希望大神能解答解答！~

papshaw

用power query同样可解。