1樓：匿名使用者
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列的末尾行一致的話，可以使用同一變數。
excel vba填充並讀取內容
2樓：慶年工坊
sub s()
ca = 7
n = cells(rows.count, 10).end(3).row
for i = 10 to 16
k = 0
t = ""
do while len(t) < ca and n > ktt = cells(n - k, i).textif instr(t, tt) = 0 then t = t & tt
k = k + 1
loop
cells(1, i) = t
next
end sub
excel vba快速填充公式（也就是往下拉）
3樓：
1、名稱框中輸入：bm1
2、凍結窗格
3、名稱框中輸入：k1:bm1
4、滑鼠指標一道bm1的右下角的小方點位置，按住滑鼠左鍵，往下拖動。
5、取消凍結窗格
excel vba快速下拉填充公式
4樓：姓王的
sub 填充公式()
dim co%, rox&, ro&, ra as rangerox = rows.count
ro = cells(rox, "h").end(3).row + 1
for co = 10 to 66
set ra = cells(rox, co).end(3)ra.autofill range(ra, cells(ro, co))
next
end sub
如果j至bn列最後非空單元格是對齊的，則不用迴圈，可加快速度
excel利用vba自動填充公式 5
5樓：摯愛唯夢
a表資料輸入後通過vba過入到b表，一次有n行，b表中c、e列有公式，公式太複雜，無法通過vba直接輸入，只能填充，如何通過vba選中b表c-e列的m至m+n行，如何填充公式，因為目前無法確定會使用多少行資料，所以不想預先拉很多行公式。謝謝
sheets("交易記錄列表").activaterange(cells(xe + 1, 9), cells(xe + h + 1, 17)).select
selection.filldown
在range前加**名稱會導致錯誤，所以需先啟用目標**
6樓：沐文昂
看了下你的公式執行方式，就是對比是否在c列裡有b列的相同資料，有就在第9列寫個"0"。寫得也怪怪的。幫你改下這樣
private sub worksheet_activate()
for n = 2 to [b65535].end(xlup).row
cells(n, 2).select
cells(n, 9) = evaluate("=if(countif(c:c,index(b:b,row()))>0,0,"""")")
cells(n, 8) = evaluate("你的excel公式")
cells(n, 10) = evaluate("你的excel公式")
cells(n, 11) = evaluate("你的excel公式")
nextend sub
請採納答案，支援我一下。
7樓：匿名使用者
private sub worksheet_activate()
for n = 2 to [b65535].end(xlup).row
cells(n, 2).select
cells(n, 9) = evaluate("=if(countif(c:c,index(b:b,row()))>0,0,"""")")
cells(n, 8) = evaluate("你的excel公式")
cells(n, 10) = evaluate("你的excel公式")
cells(n, 11) = evaluate("你的excel公式")
nextend sub
8樓：匿名使用者
請附上你的具體問題。
excel 用vba編寫自動填充公式功能
9樓：bb石俊傑
看了下你的公式執行方式，就是對比是否在c列裡有b列的相同資料，有就在第9列寫個"0"。寫得也怪怪的。幫你改下這樣
private sub worksheet_activate()
for n = 2 to [b65535].end(xlup).row
cells(n, 2).select
cells(n, 9) = evaluate("=if(countif(c:c,index(b:b,row()))>0,0,"""")")
cells(n, 8) = evaluate("你的excel公式")
cells(n, 10) = evaluate("你的excel公式")
cells(n, 11) = evaluate("你的excel公式")
nextend sub
10樓：匿名使用者
cells(1,8).resize([a65536].end(3).row,4).filldown
這樣？不過你好像第9列另有安排哎
11樓：匿名使用者
y=range("a65536").end(xlup).rowfor m=2 to y
cells(m,8).formular1c1=你的公式cells(m,9).formular1c1=cells(m,10).
formular1c1=cells(m,11).formular1c1=next
12樓：匿名使用者
private sub worksheet_activate()dim i, n, x as integerx = [c1048576].end(xlup).rowfor i = x to 2 step -1if cells(i, 2) = cells(i, 3) thencells(i, 9) = "0"
exit for
end if
if cells(i,1)<>"" thenrange(cells(i,8),cells(i,11)=iend if
next
next
end sub
excel使用vba巨集在區域內自動填充公式
13樓：匿名使用者
一句**就行：
cells(6, 2).resize(400 - 5, 200 - 1).formular1c1 = "=表1!rc2*r5c"
excel 怎麼用vba實現公式下拉
14樓：匿名使用者
sub zz()
cells(6, 2).formula = "=" & cells(5, 1).address(0, 0)
range([b6], cells(cells(rows.count, 1).end(3).row, 2)).filldown
end sub
excel**怎麼利用vba自動填充公式
15樓：匿名使用者
如圖，比如要在c1：c9寫入公式，**為：
sub dd()
dim i as integer
for i = 1 to 9
range("c" & i).value = "=sumif(a1:a9," & "a" & i & ",b1:b9)"
next
end sub
ecel中如何自動填充公式，excel中如何自動填充公式
有個快速填充的方法，不需要拖著填充柄一直拉到1000行。你只需要雙擊一下填充柄，就能看到你想要的效果了 一步到位 滑鼠放在寫好公式的單元格右下角，滑鼠變成黑十字後，點左鍵，向下或向右拉即可自動填充公式 1.以如下圖的excel為例，已知b c的值，要計算的是d這一列，計算公式 d b c 其中d4 ...
excel自動填充公式比如第一格的公式為C1，第二格的公式為C3，向下填充順序為 C5，C7怎樣辦到
在a1中輸入或複製貼上此公式 indirect c row a1 2 1 或 index c c,row a1 2 1 或 offset c 1,row a1 1 2,下拉填充 公式 offset c 1,row a1 2 2,下拉。index c c,row a1 2 2 indirect c r...
excel vba從下往上填充，填充至重複前處停止
比如是a列，從n開始向上填 n 22 從22行向上 for i n to 1 step 1if range a i range a n then exit for 如果上面遇到和a22相同的內容就結束 range a i interior.color 65535 填黃色 next dim i,j a...