|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub 提取1次循环()
Dim d, d2, arr1, n, i, j, x
Set d = CreateObject("scripting.Dictionary")
Set d2 = CreateObject("scripting.Dictionary")
n = Range("b" & Rows.Count).End(3).Row
arr1 = [a2].Resize(n - 1, 3)
For i = 1 To UBound(arr1)
If Not d.Exists(arr1(i, 2)) Then
d.Add arr1(i, 2), ""
If arr1(i, 1) = "DW3" Then
d2.Add arr1(i, 2), Array(arr1(i, 1), arr1(i, 2), arr1(i, 3))
End If
End If
Next
[h2].Resize(d2.Count, 3) = WorksheetFunction.Transpose(WorksheetFunction.Transpose(d2.items))
End Sub
|
评分
-
3
查看全部评分
-
|