excel 相同属性的竖列数据改成横列数据，太难了帮我看看
结果在sheet2中。数据不多的话,剪切来得快。Sub按钮1_单击()Setmycnt=Application。Workshee ("a:d")。Sortkey1:=[d1],order1:=1Sheet2。 Cells=EmptyFori=1To[d65536]。End(xlUp)。Rowk=mycnt。CountIf([d:d],Cells(i,4))Forx=0Tok-1Range(Cells(i,1),Cells(i,4))。 Offset(x)。CopySheet2。Cells(a,4*x+1)Nextxa=a+1i=i+k-1NextSheet2。Columns("a:z"...全部
结果在sheet2中。数据不多的话,剪切来得快。Sub按钮1_单击()Setmycnt=Application。Workshee ("a:d")。Sortkey1:=[d1],order1:=1Sheet2。
Cells=EmptyFori=1To[d65536]。End(xlUp)。Rowk=mycnt。CountIf([d:d],Cells(i,4))Forx=0Tok-1Range(Cells(i,1),Cells(i,4))。
Offset(x)。CopySheet2。Cells(a,4*x+1)Nextxa=a+1i=i+k-1NextSheet2。Columns("a:z")。 。收起
