Hsieh

§Úı±o¬O³o¼Ë±Æ¦C

1. Sub ex()
   
2. Dim s%
   
3. [J:IV] = ""
   
4. Cells.Replace "(*)", ""
   
5. r = [a65536].End(xlUp).Row
   
6. For i = 1 To r Step 30
   
7.    For k = 1 To 7 Step 2
   
8.    ar = Cells(i, k).Resize(30, 2).Value
   
9.    h = IIf(k = 1, 1, IIf(k = 3, 31, IIf(k = 5, 61, 91)))
   
10.    Cells(h, 10 + s * 2).Resize(30, 2) = Application.Transpose(Application.Transpose(ar))
    
11.    Next
    
12.    s = s + 1
    
13. Next
    
14. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 4# Qin

¬JµM¬O¦b¤@¯ë°Ïµo°Ý¡A¦P¼Ë¥Î¨ç¼Æ¸Ñ¨M¬Ý¬Ý
©w¸q¦WºÙ
x=INT((ROW()-1)/30)
y=CHOOSE(x+1,1,3,5,7)
z=MOD(ROW()-1,30)+1+INT((COLUMN(!A$1)-1)/2)*30
J1¤½¦¡
=INDIRECT("R"&z&"C"&y+MOD(COLUMN(A$1)+1,2),0)&""
¦V¤U½Æ»s¨ìJ120
J1:J120¦V¥k½Æ»s    Text.rar (98.3 KB)

¤U¸ü¦¸¼Æ: 4

2011-3-27 22:41

Hsieh

Ãö©ó²M°£¬A¸¹¤Î¼Æ¦r¦p¹Ï¾Þ§@

¤U¸ü (272.76 KB)

2011-3-27 23:03