|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
简单修改几下就好了。
Sub t()
Dim arr, d, sh As Worksheet, i, j As Integer
Set d = CreateObject("Scripting.Dictionary")
Sheet5.[b3:f8] = ""
For j = 1 To 5
For Each sh In Sheets
If sh.Name <> "统计" Then
arr = sh.Range("a2").CurrentRegion
For i = 3 To 6
If arr(i, 5) = Sheet5.Cells(2, j + 1) Then
d(arr(i, 3)) = ""
End If
Next
End If
Next
[Sheet5].[a3].Offset(0, j).Resize(d.Count) = Application.Transpose(d.keys)
d.RemoveAll
Next
Set d = Nothing
End Sub |
|