就是把sheet2的A1-A4 復制、轉置選擇性粘貼到sheet1的B2-E2，然后刪除sheet2的A1-A4
然后再接著把sheet2的A5-A8 復制、轉置選擇性粘貼到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相對應的就變成0額
包括使用轉置公式 TRANSPOSE 之后下拉也是一樣的結果既然是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,把上面的公式復制下來即可
那個 (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,把上面的公式復制下來即可
那個 (ROW($B2)-2)*4+1是確定行號的，前面的"Sheet2!A"是確定列的
搞懂了，研究透了，謝謝，高中學過的，N年沒用屁都不懂了。
話說&之前要加引號 之后不用加么用相對引用。
貌似樓上已給出方案了。 Post by bushzhengwei (2012-09-05 14:46)
加引號是按字符處理的，不加引號是按公式處理的
后面不加的部分表示按公式計算值后再與前面字符相加
加引號是按字符處理的，不加引號是按公式處理的
后面不加的部分表示按公式計算值后再與前面字符相加
謝謝
這個方法比較簡單，但是源數據就無法刪除了，所以假如能有VBA用轉置的話更好了