|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 一指禅62 于 2020-3-6 16:56 编辑
对楼主要求理解得没把握,猜猜看
- Sub 汇总()
- Dim d As Object, Sh As Worksheet, arr, a(), i&, n%
- Set d = CreateObject("Scripting.Dictionary")
- For Each Sh In Worksheets
- If Sh.Name <> "汇总" Then
- arr = Sh.Range("A1").CurrentRegion
- For i = 2 To UBound(arr)
- If Trim(arr(i, 2)) <> "" Then
- d(Trim(arr(i, 1)) & "|" & Trim(arr(i, 2))) = arr(i, 1)
- ' d(Trim(arr(i, 2))) = arr(i, 1)
- End If
- Next
- End If
- Next
- Sheet1.Range("A2:B10000").ClearContents
- If d.Count > 0 Then
- Sheet1.Range("A2").Resize(d.Count, 2) = _
- WorksheetFunction.Transpose(Array(d.items, d.keys))
- Sheet1.Range("B:B").Replace "*|", ""
- End If
- End Sub
复制代码 |
|