|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 xutianlin 于 2014-1-20 17:45 编辑
- Sub ksekfe()
- Set d = CreateObject("scripting.dictionary")
- arr = Range("a2:e" & Range("a65536").End(xlUp).Row)
- For i = 1 To UBound(arr)
- n = n + 1
- Cells(n + 1, "f") = arr(i, 1) & Format(arr(i, 3), "yyyy-mm-dd") & arr(i, 4)
- Next
- brr = Range("a2:f" & Range("f65536").End(xlUp).Row)
- For i = 1 To UBound(brr)
- d(brr(i, 6)) = Array(brr(i, 1), brr(i, 2), brr(i, 3), brr(i, 4), brr(i, 5))
- Next
- Range("f2:f" & Range("f65536").End(xlUp).Row).Clear
- Sheets("123").Range("a2").Resize(d.Count, 5) = Application.Transpose((Application.Transpose(d.items)))
- End Sub
复制代码 |
|