1樓：匿名使用者
dim i
for i=1229 to 2 step -1range("c" & i).selectselection.autofill destination:
=range("c" & i-1 & ":c" & i), type:=xlfilldefault
range("c" & i-1 & ":c" & i).selectrange("ak" & i-1 &":am" & i-1").select
selection.copy
range("aq" & i-1).selectselection.pastespecial paste:
=xlpastevalues, operation:=xlnone, skipblanks _
:=false, transpose:=falsenext
以上只是根據你的**修改，只是為了迴圈，不考慮你原**的準確性
2樓：綠衣人敲門
sub 巨集名稱()
dim x%
for x = 2 to 30 step 1if sheet1.cells(x, 1) <> "" thensheet2.cells(x, 1) = sheet1.
cells(x, 1)
sheet2.cells(x, 2) = sheet1.cells(x, 3)
end if
next
dim y%
for y = 2 to 30 step 1if sheet2.cells(y, 1) = "" thensheet2.rows(y).deleteend if
next
end sub
3樓：匿名使用者
x=19
for y=1229 to x
range("c"&y).select
=xlpastevalues, operation:=xlnone, skipblanks _
:=false, transpose:=falsenext
4樓：匿名使用者
你直接說意思就行了，你錄製的巨集比較麻煩
用excel巨集做按鈕用來替換表中的公式內容
sub test for i 1 to range a65536 end xlup row tmp range a i formulatmp replace tmp,1 100 range a i formula tmpnext i end sub 做個按鈕執行這個巨集就行了，這個是替換a列中公式把...
魔獸世界迴圈巨集，魔獸世界如何做連續技能的巨集
現在判斷巨集只能接受以下型別的引數 help 目標可以接受增益法術。harm 目標可以受到攻擊。exists 目標存在。dead 目標已經掛了。stance 0 1 2.n 玩家在某姿態下。stealth 玩家在潛行狀態下。modifier shift ctrl alt 某功能鍵被按下。button...
excel中的巨集是什麼，有什麼用，怎麼做
巨集 指一系列excel能夠執行的vba語句。以下將要錄製的巨集非常簡單，只是改變單元格顏色。請完成如下步驟 1 開啟新工作簿，確認其他工作簿已經關閉。2 選擇a1單元格。調出 常用 工具欄。3 選擇 工具 巨集 錄製新巨集 4 輸入 改變顏色 作為巨集名替換預設巨集名，單擊確定,注意，此時狀態列中...
Excel怎麼用巨集把指定行插入到Sheet2裡面去
sub 選擇複製行 把sheet1中，當前滑鼠所選中單元格的那一行，複製到sheet2第五行中 r activecell.row sheets sheet1 rows r copy destination sheets sheet2 rows 5 end sub sub 選擇複製格 把sheet1中...
excel用巨集怎讓a列輸入內容b列自動生成日期和時間
不需要巨集的，你在b列寫上公式就行了，if a1 today b列要改成日期時間格式 如果你想每次輸入a列，b列才改變一次，其他時候不改變b列資料才用到巨集 private sub worksheet change byval target as range if target.column 1 t...