摘要: 来源:http://www.360doc.com/content/17/0719/14/12298544_672573888.shtml 360doc@途之人 Range("待排序数据区域").Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, 阅读全文
posted @ 2019-02-21 13:32 codelidaguo 阅读(14113) 评论(0) 推荐(0) 编辑
摘要: Sub 分列行转表() '将按照某列分类保存到各工作表中,前提新建以某列数据命名的工作表 '原理:源数据每一列进行归类 Dim i As Long, pq As String, rng As Range i = 2 pq = Worksheets("浙南战区").Cells(i, "a").Valu 阅读全文
posted @ 2019-01-15 15:06 codelidaguo 阅读(341) 评论(0) 推荐(0) 编辑
摘要: 来自《别怕excel vba其实很简单》 阅读全文
posted @ 2019-01-14 00:08 codelidaguo 阅读(1854) 评论(0) 推荐(0) 编辑