1樓：小李無刀
比如是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
2樓：匿名使用者
dim i, j as integer
dim str as string
for j = 11 to 22
str = ""
for i = 8 to 1 step -1if instr(str, cells(i, j).value) <> 0 then
exit for
end if
cells(i, j).interior.colorindex = 6
str = str & cells(i, j).valuenext
next
3樓：匿名使用者
原始資料在什麼位置，填充在什麼位置？
excel利用vba自動填充公式 5
4樓：摯愛唯夢
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前加**名稱會導致錯誤，所以需先啟用目標**
5樓：沐文昂
看了下你的公式執行方式，就是對比是否在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樓：匿名使用者
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樓：匿名使用者
請附上你的具體問題。
excel vba快速填充公式（也就是往下拉）
8樓：
1、名稱框中輸入：bm1
2、凍結窗格
3、名稱框中輸入：k1:bm1
4、滑鼠指標一道bm1的右下角的小方點位置，按住滑鼠左鍵，往下拖動。
5、取消凍結窗格
excel vba填充順序相同
9樓：匿名使用者
如果你要填充顏色，可以用錄製巨集錄製，這樣能自動生成vba**，你可以從**中修改自己需要的填充範圍
range("a1:h11").selectwith selection.interior.pattern = xlsolid
.patterncolorindex = xlautomatic.color = 65535
.tintandshade = 0
.patterntintandshade = 0end with
上面是填充單元格填充黃色的！！可根據修改range範圍實現自定義填充
10樓：平陽虎
俺語文成績不大好……
excel vba快速填充公式 往下拉
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,...
什麼是紅寶石的充填處理，經過填充處理的天然紅寶石還算天然的寶石嗎？
紅寶石的珍貴很大程度上來自於它產量的稀少，每年產出的紅寶石中能有較好品質的更是屈指可數，大多數的紅寶石還是或淨度一般 或顏色一般 或體積太小的普通紅寶石，也印證了紅寶石 十紅九裂 的說法。紅寶石的裂隙不但影響美觀度，還會對其耐久性產生一定影響。為了是品質一般的紅寶石也躋身於高品質之列，各種優化處理技...
織毛衣從下往上打，怎樣織袖窩部分
工具 原料 棒針 毛線。1 準備好棒針和毛線。先起10針來做個示範。在具體編織衣袖中要根據實際大小來起針。2 然後正面織下針反面織上針，織一個來回。3 接著在開頭織一針下針後加兩針針，加針方法在右邊的棒針上繞兩圈。然後織到還有一針時再加兩針，加針都在正面進行。4 然後正面織下針兩頭加針，方面織上針，...