综合测试一题

安然祥和

见附件，由表一变表二，用数据透视大家都会。（注：数据量大，这仅为其中一小部分）
现需由表二变为表一，这为综合能力测试：
方法：1、数据透视
           2、SQL
           3、VBA
           4、基本操作
           5、技巧+公式
你会哪几种？
（我已于昨天发到基础应用，但只有dajiahaoxinku12 解答，没其他人解答，不知是对初学者难了还是对高手来说没意思。。。。）

delete_007

1. =INDIRECT("r"&INT(ROW(A7)/7)*(A$2<>$D$2)+2&"c"&IF(COLUMN()<4,COLUMN(G1),MOD(ROW(A7),7)+10),)&""

复制代码

A3公式右拉下拉。

q65337223

delete_007 发表于 2013-10-25 09:24
A3公式右拉下拉。

向版主学习啊

安然祥和

delete_007 发表于 2013-10-25 09:24
A3公式右拉下拉。

版主的公式一步到位，简洁，学习了！

zheng_0925

1. Sub zh()
   
2.     Dim crr()
   
3.     Application.ScreenUpdating = False
   
4.     Range("a3:e65536") = ""
   
5.     r = [i3].End(4).Row
   
6.     arr = Range("g3:p" & r)
   
7.     brr = Range("j2:p2")
   
8.     ReDim crr(1 To UBound(arr) * 7, 1 To 5)
   
9.         For i = 1 To UBound(arr)
   
10.             For j = 1 To 7
    
11.                 n = n + 1
    
12.                 crr(n, 1) = "'" & arr(i, 1): crr(n, 2) = arr(i, 2)
    
13.                 crr(n, 3) = arr(i, 3): crr(n, 4) = brr(1, j)
    
14.                 crr(n, 5) = arr(i, j + 3)
    
15.             Next
    
16.         Next
    
17.     [a3].Resize(n, 5) = crr
    
18.     Application.ScreenUpdating = True
    
19. End Sub
    
20. 
    

复制代码

Tuva

思路不错,学习了

5128799

=IF(COLUMN()<4,OFFSET($G$2,(ROW()-2.1)/7+1,COLUMN()-1),IF(COLUMN()=4,OFFSET($G$2,,MOD(ROW()-3,7)+3),OFFSET($G$2,(ROW()-2.1)/7+1,MOD(ROW()-3,7)+3)))   A3公式右拉下拉  笨方法

安然祥和

公式法、VBA法已成功了，其他方法还有谁能提供？期待。。。。。

5128799

=OFFSET($G$2,(COLUMN()<>4)*((ROW()-2.1)/7+1),IF(COLUMN()<4,COLUMN()-1,(MOD(ROW()-3,7)+3))) 优化后的公式 A3公式右拉下拉  笨方法

jing716

太笨了,哈!就当凑个热闹
G3
=OFFSET(A$2,SMALL(IF(MATCH($B$3:$B$2053,$B$3:$B$2053,)=ROW($1:$2051),ROW($1:$2051),9^9),ROW(A1)),)  数组,右拉至I列,下拉
J3
=OFFSET($E$2,MATCH($I3&J$2,$C$3:$C$2053&$D$3:$D$2053,),)&""  数组,右拉,下拉晕,整反了,重新做了下,公式与楼上相同,
A3=IF(COLUMN(A1)<4,OFFSET($G$2,INT((ROW(A1)-1)/7)+1,COLUMN(A1)-1),IF(COLUMN(A1)=4,OFFSET($G$2,,MOD((ROW(A1)-1),7)+3),OFFSET($G$2,INT((ROW(A1)-1)/7)+1,MOD((ROW(A1)-1),7)+3)))