VB知识库

那是你不会用透视表

本回答由网友推荐

SubAA()

DimI,X

ForI=2ToRange("A65536").End(xlUp).Row

X=ActiveSheet.UsedRange.Columns.Count

Range(Cells(I,"A"),Cells(I,"e")).CopyCells(1,X+1)

EndSub

1、在E3单元格输入公式：=IF(D3="","",ROW(D3))然后在下拉公式。

2、选中E1至EN单元格，再升序排序即可。

=IF(COLUMN()>$B$2 2,"",OFFSET($A$1,MOD(COLUMN(A1)-1,$B$2) $B$2*(ROW()-1),0))

1. 这不似简单的转置，而是一个多条件数量统计。为便于公式设置，特将《转置后1》改为本表样式。

2. 选中D2:AU9，输入公式“=SUMPRODUCT((LOOKUP(ROW(转置前，$A$2:$A$88),ROW(转置前!$A$2:$A$88)/(转置前!$A$2:$A$88""),转置前，$A$2:$A$88)=LOOKUP("座",$A$2:$A2))*(转置前!$C$1:$D$1=$B2)*(转置前，$B$2:$B$88=D$1)*转置前!$C$2:$D$88)”，点CTRL+ENTER键。

3. 公式中两个LOOKUP函数，是用以对《转制前》A列和本表A列合并单元格的空格填充，故令公式冗长。在空白区域的首个单元格中输入公式

=OFFSET($A$1,COLUMN(A1)-1,ROW(A1)-1)

再将公式右拖、下拉填充。

参照附件公式。

很抱歉，回答者上传的附件已失效设数据如图：选增加一列序号，并选中数据区域，如图：点“数据”——“数据透视表和数据透视图”——“下一步”——“下一步”——“布局”——将“系”拖至“列”——分别将“数据1”、“数据2”、“数据3”、“数据4”、拖至“数据”，如图：双击“计数项：数据1”——“求和”——“确定”，”、（“计数项：数据2”、“计数项：数据3”、“计数项：数据4“同）如图：——“确定”——“完成”，如图：光标放在“A4”单元格，对准下框线，向右拖，如图：选中第6行数据，按“Ctrl"+"C"**，在适当的单元格右击——“选择性粘贴”——“数值”——“转置”，如图：——“确定”，如图：

1. 这不似简单的转置，而是一个多条件数量统计。为便于公式设置，特将《转置后1》改为本表样式。

2. 选中D2:AU9，输入公式“=SUMPRODUCT((LOOKUP(ROW(转置前，$A$2:$A$88),ROW(转置前!$A$2:$A$88)/(转置前!$A$2:$A$88""),转置前，$A$2:$A$88)=LOOKUP("座",$A$2:$A2))*(转置前!$C$1:$D$1=$B2)*(转置前，$B$2:$B$88=D$1)*转置前!$C$2:$D$88)”，点CTRL+ENTER键。

3. 公式中两个LOOKUP函数，是用以对《转制前》A列和本表A列合并单元格的空格填充，故令公式冗长。在空白区域的首个单元格中输入公式

=OFFSET($A$1,COLUMN(A1)-1,ROW(A1)-1)

再将公式右拖、下拉填充。

参照附件公式。

很抱歉，回答者上传的附件已失效设数据如图：选增加一列序号，并选中数据区域，如图：点“数据”——“数据透视表和数据透视图”——“下一步”——“下一步”——“布局”——将“系”拖至“列”——分别将“数据1”、“数据2”、“数据3”、“数据4”、拖至“数据”，如图：双击“计数项：数据1”——“求和”——“确定”，”、（“计数项：数据2”、“计数项：数据3”、“计数项：数据4“同）如图：——“确定”——“完成”，如图：光标放在“A4”单元格，对准下框线，向右拖，如图：选中第6行数据，按“Ctrl"+"C"**，在适当的单元格右击——“选择性粘贴”——“数值”——“转置”，如图：——“确定”，如图：