1樓：萬年金剛鑽
sub delete0()
c = [iv1].end(xltoleft).column
for i = 1 to 2 + (c - 2) * 3
activecell.offset(0, 9).range("a2").select
activecell.formular1c1 = "=if(rc[-2]<>0,rc[-2],"""")"
' activecell.range("a2").select
' selection.autofill destination:=range("a2:a80"), type:=xlfilldefault
activecell.range("a2").autofill destination:
=activecell.range("a2:a801"), type:
=xlfilldefault
activecell.range("a2").select
next i
end sub
2樓：匿名使用者
主要問題是destination那裡
改成這樣就可以
sub delete0()
c = [iv1].end(xltoleft).columnfor i = 1 to 2 + (c - 2) * 3with activecell.
offset(1, (i - 1) * 9)
.formular1c1 = "=if(rc[-2]<>0,rc[-2],"""")"
.autofill destination:=.range("a2:a801"), type:=xlfilldefault
end with
next i
end sub
2019中，選中文字之後的快捷文字格式欄中，沒有下劃
看左上角的按鈕欄，在下劃線那個圖示上右擊，可以看到 新增到快速訪問工具欄 即可。見圖。如何在word2007中 修改預設 快捷編輯工具，如新增下劃線等。10 工具 自定義 命令 左邊欄中點 格式 右邊欄中找到 u 下劃線 拉到你要擱置的快捷選單欄裡，ok。你去裡面有怎麼教你如何打下劃線 如何給but...
從2347中選出數字各寫兩個加法減法算式
3 4 7 4 3 7 7 3 4 7 4 3 選3 4 7這三個數可以寫出兩個加法算式和兩個加法算式。從2347中選出三個數字各寫兩個加法減法算式?好吧請看 2 3 5 2 4 6 3 4 7 三個加法完成 7 3 4 7 4 3 4 3 1 三個減法完成 3 4等於七。4 3等於七7 4等於三。...
周朝各計量單位及與今日計量單位的比例，求解答！謝謝
一，長度單位 1丈 10尺,1尺 10寸,1寸 10分，1丈 231 釐米，下同 1尺 23.1,1寸 2.31 1分 0.231 二，容量單位 齊 1鍾 10釜,1釜 4區，1區 4豆,1豆 4升 秦 1斛 10鬥,1鬥 10升，1升 200 毫升 楚 1筲 5升 三晉 1斛 10鬥,1鬥 10升...