作者：乔山办公网日期：
返回目录：excel表格制作
见截图，百A7输入
=INDEX(A$1:A$6,SMALL(IF($D$2:$D$4>=COLUMN($A:$Z),ROW($2:$4)),ROW(A1)))
数组公式，度先按住CTRL+SHIFT,最后回车知，使得编辑道栏公式两端专出现花括号{ }
公式右属拉再下拉
从你代码看百，应该是在两个工作簿中复制数据，而度不是同一工作簿的两个工作表，回所以给你写一段代码，放在Book2.xls工作簿的用户模块中。 Sub abc()Sheets("sheet1").SelectWith Workbooks("Book1.xls").Sheets("sheet1")x = 1For i = 1 To 20 If IsNumeric(.Cells(i, 1)) = True And .Cells(i, 1) > "" Then Range("a" & x & ":c" & x) = .Range("a" & i & ":c" & i).Value x = x + 1 End IfNextEnd WithEnd Sub 试试吧答
C1=A1&B1
下拉
D1=SUM(1/COUNTIF($C$1:C1,$C$1:C1))
数组公式，下拉
1、首先打开需要编辑的抄Excel表格，进入到编辑页面中。
2、在编辑的窗口中，点击E2单元格输入公式“=SUM(D$2:D2)-D2”，然后向下填充公式，
3、点击选zd择G2单元格输入公式“=IF(ROW(A1)-1>=SUM($D:$D),"",LOOKUP(ROW(A1)-1,$E:$E,B:B))”，然后向右向下填充公式。
4、然后就完成了。