出道练习题

dajiahaoxinku12

用左边的数据  实现右边的效果

136211828

VBA倒是可以轻易实现，不过LZ还是上传个附件吧

ldda

=INDEX(A:A,SMALL(IF($B$2:$B$3>=COLUMN(A:F),ROW($2:$3),99),ROW(1:1)))&""

dajiahaoxinku12

136211828 发表于 2013-2-8 23:19
VBA倒是可以轻易实现，不过LZ还是上传个附件吧

不好意思，附件来了

136211828

dajiahaoxinku12 发表于 2013-2-8 23:24
不好意思，附件来了

1. Option Explicit
   
2. 
   
3. Sub lx()
   
4. Dim t%, endrow1%, endrow2%, i%
   
5. t = 4
   
6. endrow2 = [A65536].End(xlUp).Row
   
7. For i = 4 To endrow2
   
8. endrow1 = [F65536].End(xlUp).Row
   
9. Range("F" & endrow1 + 1 & ":F" & (endrow1 + Cells(t, "D"))) = Cells(t, "A")
   
10. t = t + 1
    
11. Next i
    
12. End Sub

复制代码

结果在F列

xcmrbxmq

=IF(ROW(1:1)<=$B$1,$A$1,IF(ROW(1:1)<=$B$1+$B$2,$A$2,""))

xpm130

仅就附件而言,多单元格数组公式
=MID(REPT(A4,D4)&REPT(A5,D5),ROW(1:9)*2-1,2)

一剑惊心

1. =LOOKUP(ROW(A1)-1,SUBTOTAL(9,OFFSET(D$3,,,{1;2;3},)),A$4:A$6)&""

复制代码

香川群子

136211828 发表于 2013-2-8 23:48
结果在F列

小朋友，以后记得粘贴代码时，不需要把Option Explicit 也复制粘贴上来。

因为这个只是你个人的习惯，不是必需的。

mxqchina

香川群子 发表于 2013-2-10 00:55
小朋友，以后记得粘贴代码时，不需要把Option Explicit 也复制粘贴上来。

因为这个只是你个人的习惯， ...

粘出来也没问题吧。