Sub 分列行转表()
'将按照某列分类保存到各工作表中，前提新建以某列数据命名的工作表
'原理：源数据每一列进行归类
Dim i As Long, pq As String, rng As Range
i = 2
pq = Worksheets("浙南战区").Cells(i, "a").Value 'pq确定为某列的数据；红字部分根据实际情况命名
Do While pq <> ""
Set rng = Worksheets(pq).Range("a1048576").End(xlUp).Offset(1, 0)
Worksheets("浙南战区").Cells(i, "a").Resize(1, 7).Copy rng '将成绩复制到相应工作表中 ?
i = i + 1
pq = Worksheets("浙南战区").Cells(i, "a").Value
Loop
End Sub
转载于:https://www.cnblogs.com/codelidaguo/p/10272013.html
相关资源：用VBA做的根据自动模板批量生成新表格
