vba-按照某列分类保存到各工作表中
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