横对应，变竖对应

popicture

求助，
由横向对应的关系，转为竖向对应的关系。谢谢！

wdx223

PowerQuery透视A列

popicture

这个插件没用过。求指点

hcm19522

L2:N10{=IF(ROW(A1)>SUM(N(INDEX($A:$A,SMALL(IF(MATCH($A$2:$A$26,$A$2:$A$26,)=ROW($1:$25),ROW($1:$25)),COLUMN(A1))+1)=$A$2:$A$26)),"",OFFSET($B$1,SMALL(IF(MATCH($A$2:$A$26,$A$2:$A$26,)=ROW($1:$25),ROW($1:$25)),COLUMN(A1))+ROW(A1)-1,))

方式二(利用第一行H1:J1) H2:J10{=INDEX($B:$B,SMALL(IF($A$2:$A$26=H$1,ROW(A$2:A$26),4^8),ROW(A1)))&""

gykg-excel

=IFERROR(INDEX(OFFSET($B$1,MATCH(H$1,$A:$A,)-1,,COUNTIF($A:$A,H$1),),ROW($A1)),"")

iwangyi

Sub CC()
Set CN = CreateObject("adodb.connection")
set Rs=CreateObjeCt("Adodb.RecoRdSet"）
CN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
sQL="seLect  disinCt 袋号 FrOm [Sheet1$]
Open RS sQL Cn 1，3
X=Rs.ReCoRdCount
dO until RS.Eof
k=k+1
m=Rs.FieldS(0)
cells(1,8+K)=m
SQLL="Select 追踪号 From [sheet1$] Where 袋号='"&m&"'"
CeLLs(2，8+K).CopyfromRecoRdset cn.exeCute(sQLL)
Rs.movenext
LOOP
End sub

西科浪子

使用数据透视表秒解决问题

popicture

谢谢hcm19522   谢谢gykg-excel
以扩展实用性，还是gykg-excel  更为易操作。谢谢大家的相助，今晚不用加班啦。谢谢！！