Question

如何把行的数据变纵向排列呢.图一变成图二.谢谢





Answer 1

表1

添加辅助列：O2输入0，O3=COUNT(B$2:M2)+1向下复制

表2

B2=IF(A2="","",SMALL(IF(OFFSET(表1!$A$1,MATCH(表2!$A2,表1!A:A,0)-1,1,1,12)>0,表1!$B$1:$M$1,10000),COUNTIF(A$2:A2,A2)))数组公式

C2=IF(A2="","",INDEX(表1!A:N,MATCH(表2!A2,表1!A:A,0),MATCH(表2!B2,表1!A$1:M$1,0)))

两公式向下复制

【数组公式，公式输完后，光标放在公式编辑栏同时按下CTRL+SHIFT+回车键，使数组公式生效】

追问

谢谢

Answer 2

可以用OFFSET函数在新建的一个工作表中实现，可惜要回去电脑上操作吧

追问

能告知一下如何操作吗

追答

1、在图二的工作表的A2单元格输入公式：

=OFFSET(Sheet1!$A$1,1+INT((ROW(A1)-1)/12),0)

复制并下拉。

2、在图二的工作表的I2单元格输入公式：

=OFFSET(Sheet1!$A$1,0,2+MOD(ROW(A1)+11,12))

复制并下拉。

3、在图二的工作表的J2单元格输入公式：

=OFFSET(Sheet1!$A$1,1+INT((ROW(A1)-1)/12),2+MOD(ROW(A1)+11,12))

复制并下拉。

4、若要保留二个表的关联，则等全部复制下拉完成即可。只要图一表中的数据一变，后续表即同步。

    若是不想关联表格，仅仅是取这一次的数据而已，则只要选择全表（CTRL+A)——复制——选择性粘贴——数据，即可把表2转换为具体的数据，公式全部变成数据了，再进行排序并把数据为0的尺码行删除即可。

追问

谢谢帮忙.明天我试一下

Answer 3

这个要通过VBA的方式来实现

追问

数据透视完成不了吗、不会用vab

vba