1樓：摯愛唯夢
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前加**名稱會導致錯誤，所以需先啟用目標**
2樓：沐文昂
看了下你的公式執行方式，就是對比是否在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
請採納答案，支援我一下。
3樓：匿名使用者
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
4樓：匿名使用者
請附上你的具體問題。
excel 用vba編寫自動填充公式功能
5樓：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
6樓：匿名使用者
cells(1,8).resize([a65536].end(3).row,4).filldown
這樣？不過你好像第9列另有安排哎
7樓：匿名使用者
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
8樓：匿名使用者
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自動填充公式
9樓：匿名使用者
如圖，比如要在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
excel使用vba巨集在區域內自動填充公式
10樓：匿名使用者
一句**就行：
cells(6, 2).resize(400 - 5, 200 - 1).formular1c1 = "=表1!rc2*r5c"
excel vba快速填充公式:往下拉
11樓：匿名使用者
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**按照第一列下拉填充公式怎麼做到？？
12樓：復仇之牙
以下圖為例
**sub 巨集1()
dim r as long
r = cells(rows.count, "a").end(3).row
[b1].autofill destination:=range("b1:b" & r)
end sub
13樓：deqr雲飄
軟體版本：office2007
方法如下：
1.利用vba在c列中加入公式求ab列的和，並且填充公式至所有有資料的行：
2.alt+f11，輸入**如下：
3.f5執行**，返回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快速填充公式（也就是往下拉）
14樓：
1、名稱框中輸入：bm1
2、凍結窗格
3、名稱框中輸入：k1:bm1
4、滑鼠指標一道bm1的右下角的小方點位置，按住滑鼠左鍵，往下拖動。
5、取消凍結窗格
excel vba**中加入公式並填充公式
15樓：魚木混豬
軟體版本：office2007
方法如下：
1.利用vba在c列中加入公式求ab列的和，並且填充公式至所有有資料的行：
2.alt+f11，輸入**如下：
3.f5執行**，返回excel，得到結果如下：
16樓：慶年工坊
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
17樓：匿名使用者
通過記錄巨集可以得到**。
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公式自動填充
如果第一列有資料的話，點選第一個單元格，變十字形後雙擊下，就會跳到最後一個了 方法1 複製第一個帶公式的單元格，然後，把滑鼠移到下一個單元格，點一下，之後，拉動右邊的滾動條到表的最後一行，找到剛才同一列的最後一個單元格，按住shift鍵，再點最後一個單元格，之後右鍵貼上。方法2 複製第一個帶公式的單...
excel自動填充樁號，請問excel中如何下拉自動生成樁號？要什麼公式？謝謝！
excel自動填充樁號 的操作步驟是 1 開啟excel工作表 2 按照題目要求 k100 000 k100 100 下一行內k100 100 k100 200以此類推，到容k100 900 k101 000 前面字元k後面的100，每達到後面的資料達到1000時，個位進一位，連線符後面的資料按每行...