- 博客(2)
- 收藏
- 关注
原创 EXCEL代码记录
将一页sheet内容拆分为多页Sub test()Application.ScreenUpdating = FalseSet d = CreateObject(“scripting.dictionary”)arr = Sheets(1).UsedRangeFor j = 2 To UBound(arr)If d.exists(arr(j, 2)) ThenSet d(arr(j, 2)) = Union(d(arr(j, 2)), Cells(j, 1))ElseSet d(arr(j,
2020-11-30 11:13:50
274
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人