1樓：思雪遙遙
sub 公式下拉()
dim i, irow as integerirow = 衫李range("d65536").end(xlup).row
假設d列是用來參照公式下拉到什麼位置的，假設d列最後乙個單元格是d577，那麼a列將填充敬賣到a577，而不管d1:d577中間是否有亮塌逗空白單元格的存在。
irow 你也可以換成你所謂的r5的值。
for i = 1 to irow
for i= 1 to range("r5").valueif i mod 47 = 0 then
cells(i, 1) =47
elsecells(i, 1) =i mod 47end if
nextend sub
2樓：網友
sub 試試1()
range("a1") if(mod(row(),47)=0,47,mod(row(),47))"
向下填充。end sub
提示】：仔細觀察這條公式，這條公式在下拉填充逗悶時，每個單元格的御兆公式都完全一樣，不會出現公式所引用單元格行號需要變化的情況，所以也可以直接這樣寫代山拆彎碼：
sub 試試2()
end sub
excel如何將含有公式的單元格快速下拉填充到指定的行？
3樓：mis正能量
滑鼠放在有公式的那個單元格右下角，當事變變成小「+」後，按住滑鼠左鍵，一直拖到你需要填充的單元格就可以了。
4樓：逍遙盧
把滑鼠放在要拉的單元格右下角，在現實十字圖示的時候滑鼠左鍵雙擊即可。
5樓：超級葉落無聲
假如有1w行呢，這樣拉動還是很慢，有沒更快的方法。
excel中怎樣快速下拉函式到指定的位置?
6樓：網友
在名稱框（欄最左邊的框）裡輸入要填充公式的區域b1:b20000
回車輸入公式。
a1*2按ctrl+enter
7樓：網友
在b1 裡面輸入b1=a1*2，然後選中b列，按ctrl+d，整列就全是該公式。
如果需確定一定的範圍，就在b列選定b1：bx(x為任意數)，然後按ctrl+d，也就ok了。
8樓：網友
你選中b1單元格，並且把滑鼠放在b1單元格的右下角，當出現+號時雙擊，公式就會自動填充到最後一行。
9樓：網友
複製公式單元格，左上角輸入將要顯示公式的總行數，貼上公式。
10樓：網友
先把b1自制，再快速選中b2：b20000（單擊b2，再按信shift單擊b20000），最後貼上。
11樓：網友
按住ctrl鍵 在b1右下角出現十字時雙擊。
前提是對應的a列有資料 非空。
excel，vba**按照第一列下拉填充公式怎麼做到？？
12樓：復仇之牙
以下圖為例。
**sub 巨集1()
dim r as long
r = cells(, "a").end(3).row[b1].autofill destination:=range("b1:b" & r)
end sub
13樓：deqr雲飄
軟體版本：office2007
方法如下：1.利用vba在c列中加入公式求ab列的和，並且填充公式至所有有資料的行：
輸入**如下：
執行**，返回excel，得到結果如下：
sub aa()
x = [a65536].end(3).rowrange("k10").formular1c1 = "公式1"
range("l10").formular1c1 = "公式2"
range("m10").formular1c1 = "公式3"
range("k10:m10").autofill destination:=range("k10:m" & x)
end sub
excel vba 把某個單元格cells(1,1)的公式下拉到cells(100,1)怎麼寫?
14樓：網友
像這樣復就可以制：
sub 巨集1()
for i = 1 to 100
cells(i, 1) = 1
nextend sub
裡面的=1就是你說的公式，cells(i,1)的最終結果就是1到100行都填充這個公式。
15樓：陽光上的橋
下面的**就可以內。
sub 巨集容1()
range("a1").select
destination:=range("a1:a100"), type:=xlfilldefault
range("a1:a100").selectend sub
excel vba快速填充公式:往下拉
16樓：網友
sub 快速填充7行()
dim k as long,m as longk = range("k65536").end(xlup).rowbm = range("bm65536").
end(xlup).row
with range("k" & k)
autofill destination:=range(.address, .offset(7, 0))
end with
with range("bm" & bm).autofill destination:=range(.address, .offset(7, 0))
end with
end sub
k列和bm列的末尾行一致的話，可以使用同一變數。
vba公式按指定資料插入新行
17樓：v輕揚
編寫這個工作表的change事件，**如下：
private sub worksheet_change(byval target as range)
if = "$a$1" and = 1 thenif >= 1 then
rows("3:" & 2 +
shift:=xldown, copyorigin:=xlformatfromleftorabove
a3].select
end if
end if
end sub
excel vba快速填充公式（也就是往下拉）
18樓：網友
1、名稱框中輸入：bm1
2、凍結窗格。
3、名稱框中輸入：k1:bm1
4、滑鼠指標一道bm1的右下角的小方點位置，按住滑鼠左鍵，往下拖動。
5、取消凍結窗格。
vba自動下拉公式，多少人自動下拉多少行
19樓：網友
sub 下拉公式()
x = range("a65536").end(xlup).rowrange("b2:b" &x) =輸咐和入衡畢盯你的計算公式數前"
end sub
高分請求EXCEL公式，最好不要VBA
不用vba，公式應該不好寫，我用vba給你寫 你複製，貼上在模組吧。自定的函式，直接套用公式 aaa a1,b1 function aaa rng1 as range,rng2 as range if rng1.count 1 and rng2.count 1 then arr split rng1...
注釋下面的vba語言謝謝，求注釋vba語句，一句一句地注釋下，剛學，很懵
上面是乙個小小設定excel格式和輸入值的 第一行，過程名稱 writevalue 以及引數 sheet是工作表，rownum是整數，text是字串，pos是字串 第二行，定義變數cell為工作表單元格 第三行，賦值給cell 值是sheet指定的工作表中由pos和rownum組成的單元格位址 第四...
vba語言和c語言哪個更深奧,一般vba要多長時間能學會
vb沒有c語言難得 如果你的c語言學的很好的話 你學其它的語言會很快上手的 在所有的語言中 c語言是最難得 可以這麼說吧 儘管他們都相同 請問vba語言和c語言一樣麼？不一樣，vba是以vb為基礎的，物件導向的語言，c語言難多了，功能也強大。如何學習vba 想學習vba程式設計 不知道怎麼入手 學會...