污网站视频在线观看,亚洲国产婷婷综合在线精品中文,国产精品欧美性在线观看,久久久久久大鸡吧大精品久久久久久

[我知道你們最專業(yè)] 求懂EXCEL的VBA的高手來幫個忙，露珠要轉(zhuǎn)置1000+次。。。

時間:2012-09-07 21:56 來源:www.99912.com.cn 作者:編輯 點擊:次

就是把sheet2的A1-A4 復(fù)制、轉(zhuǎn)置選擇性粘貼到sheet1的B2-E2，然后刪除sheet2的A1-A4
    
    然后再接著把sheet2的A5-A8 復(fù)制、轉(zhuǎn)置選擇性粘貼到sheet1的B3-E3，然后刪除sheet2的A5-A8
    
    然后一直做下去   
    
    下面是錄制的第一步的宏，不會修改為自動往下走啊，急求高手支招 或者有沒更簡單點的方法
    
    Sub Macro5()
    '
    ' Macro5 Macro
    '
    
    '
     Sheets("Sheet2").Select
     Range("A1:A4").Select
     Selection.Copy
     Sheets("Sheet1").Select
     Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
     False, Transpose:=True
     Sheets("Sheet2").Select
     Application.CutCopyMode = False
     Selection.ClearContents
    End Sub挽尊一下，急求高手！
    sheet的B2=sheet2!$A1 B3=sheet2!$A5
    shift選中兩個 然后往下拉 其余列同理 然后吧sheet2的刪掉
    
    
    sheet的B2=sheet2!$A1 B3=sheet2!$A5
    shift選中兩個 然后往下拉 其余列同理 然后吧sheet2的刪掉
    
    謝謝，不行的，下拉完B4就變成=Sheet2!$A3 了
    
    而且把sheet2的刪掉后sheet1相對應(yīng)的就變成0額
    
    包括使用轉(zhuǎn)置公式 TRANSPOSE 之后下拉也是一樣的結(jié)果既然是VBA, 用While循環(huán)啊.....b2=INDIRECT("Sheet2!A"&(ROW($B2)-2)*4+1)
    c2=INDIRECT("Sheet2!A"&(ROW($B2)-2)*4+2)
    d2=INDIRECT("Sheet2!A"&(ROW($B2)-2)*4+3)
    e2=INDIRECT("Sheet2!A"&(ROW($B2)-2)*4+4)
    b3到e3,把上面的公式復(fù)制下來即可
    
    那個 (ROW($B2)-2)*4+1是確定行號的，前面的"Sheet2!A"是確定列的
    
    
    
    既然是VBA, 用While循環(huán)啊.....
    
    b2=INDIRECT("Sheet2!A"&(ROW($B2)-2)*4+1)
    c2=INDIRECT("Sheet2!A"&(ROW($B2)-2)*4+2)
    d2=INDIRECT("Sheet2!A"&(ROW($B2)-2)*4+3)
    e2=INDIRECT("Sheet2!A"&(ROW($B2)-2)*4+4)
    b3到e3,把上面的公式復(fù)制下來即可
    
    那個 (ROW($B2)-2)*4+1是確定行號的，前面的"Sheet2!A"是確定列的
    
    
    
    搞懂了，研究透了，謝謝，高中學(xué)過的，N年沒用屁都不懂了。
    
    話說&之前要加引號 之后不用加么用相對引用。
    
    貌似樓上已給出方案了。 Post by bushzhengwei (2012-09-05 14:46)
    
    加引號是按字符處理的，不加引號是按公式處理的
    后面不加的部分表示按公式計算值后再與前面字符相加
    
    加引號是按字符處理的，不加引號是按公式處理的
    后面不加的部分表示按公式計算值后再與前面字符相加
    
    謝謝
    
    這個方法比較簡單，但是源數(shù)據(jù)就無法刪除了，所以假如能有VBA用轉(zhuǎn)置的話更好了