|
发表于 2013-1-5 21:19
|
显示全部楼层
本楼为最佳答案
双飞叶 发表于 2013-1-5 21:14
每次在汇总表增加内容,唯一值自动更新 - Sub zhoucs00()
- Dim arr, brr, crr, err, drr, i As Integer
- arr = Sheets("总表").Range("A3:A" & Sheets("总表").Cells(Rows.Count, 1).End(3).Row)
- drr = Sheets("总表").Range("B3:B" & Sheets("总表").Cells(Rows.Count, 2).End(3).Row)
- On Error Resume Next
- With CreateObject("scripting.dictionary")
- For i = 1 To UBound(arr)
- .Add arr(i, 1), ""
- Next i
- err = .keys
- Sheets("唯一值").Range("A4").Resize(.Count, 1) = Application.WorksheetFunction.Transpose(err)
- End With
- With CreateObject("scripting.dictionary")
- For i = 1 To UBound(drr)
- .Add drr(i, 1), ""
- Next i
- crr = .keys
- Sheets("唯一值").Range("A4").Offset(0, 1).Resize(.Count, 1) = Application.WorksheetFunction.Transpose(crr)
- End With
- End Sub
复制代码 这段代码,更新时,重新运行一下就是了 |
|