xlgCode

摘要： Sub 分列行转表() '将按照某列分类保存到各工作表中，前提新建以某列数据命名的工作表 '原理：源数据每一列进行归类 Dim i As Long, pq As String, rng As Range i = 2 pq = Worksheets("浙南战区").Cells(i, "a").Valu 阅读全文