1樓：
sub macro4()
dim i as integer
for i = 132 to 140 step 4range(cells(i + 1, 3), cells(i + 3, 3)).select
selection.copy
cells(i, 6).select
selection.pastespecial paste:=xlpasteall, operation:=xlnone, skipblanks:= _
false, transpose:=truenext
end sub
**經過除錯，對於你給出的例子正確。
2樓：
即是說下一個是應該是：
range("c141:c143").selectselection.copy
range("f140").select
selection.pastespecial paste:=xlpasteall, operation:=xlnone, skipblanks:= _
false, transpose:=trueend sub
EXCEL巨集問題，EXCEL 巨集的問題
雖然從你的描述中，實在很難搞清楚你的問題 但是大概知道你想要什麼 range a1 c29 是一種range的表示方法，這種方式基本固定了選擇區域，無法使用變數 range cells x1,y1 cells x2,y2 也是一種range的表示方法 但是這種方法中，x1,y1,x2,y2是可以使用...
EXCEL的巨集簡單問題
啟用巨集快捷鍵,是在檢視 工具欄 自定義 命令 在它的類別中選巨集,在命令中選娃娃頭 將其拖到工具欄中,右鍵為其指定巨集 巨集預先錄好 並且命名巨集名,指定快捷鍵 想要停止,沒有辦法.但是在巨集執行時可以在工具 巨集 除錯中按f8一步一步執行.巨集匯出到別的表,我一般都 是將在別的表中將巨集內容複製...
excel用vba巨集中用for迴圈將一列滿足條件的後面加上需要的數值比如
直接寫個公式就可以了。假如你那個1在的列是b，在c裡寫公式if b1 1,a 空 然後填充就可以了。如果一定要用vba,那就讀出來單元格的內容，然後根據內容填充就可以了。sub aaa for i 1 to range a65536 end xlup row if cells i,1 張 and c...