|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
参与一下。。。- Sub ykcbf() '//2024.3.18
- Set d = CreateObject("scripting.dictionary")
- arr = Sheet1.[a1].CurrentRegion
- For i = 2 To UBound(arr)
- s = arr(i, 5)
- If arr(i, 5) <> Empty Then
- If Not d.exists(s) Then Set d(s) = CreateObject("Scripting.Dictionary")
- d(s)(i) = i
- End If
- Next
- m = 1
- Me.UsedRange.Offset(1) = ""
- s = Me.[a1]
- If d.exists(s) Then
- For Each k In d.keys
- If s = k Then
- For Each kk In d(k).keys
- m = m + 1
- Me.Cells(m, 1) = arr(kk + 1, 5)
- Next
- End If
- Next
- End If
- MsgBox "OK!"
- End Sub
复制代码
|
|