1樓：慶年工坊
function myvlookup(val, rg as range, n as integer, f as boolean)
arr = rg
if f then
for i = ubound(arr) to 1 step -1if val >= arr(i, 1) thenmyvlookup = arr(i, n)end function
end if
next
else
for i = 1 to ubound(arr)if val = arr(i, 1) thenmyvlookup = arr(i, n)end function
end if
next
end if
myvlookup = "nothing is find!"
end function
2樓：
sub test()
dim dic as object,mary,mrow as long,
set dic=createobject("scripting.dictionary")
with worksheets("資料")
mrow=.cells(.rows.count,1).end(3).row
mary=.[a2].resize(mrow-1,2)
end with
for i=1 to ubound(mary,1)
dic("" & mary(i,1))=mary(i,2)
next i
with worksheets("求解表")
mrow=.cells(.rows.count,1).end(3).row
mary=.[a2].resize(mrow-1,1)
for i=1 to ubound(mary,1)
if dic.exists("" & mary(i,1)) then
mary(i,1)=dic.exists("" & mary(i,1))
else
mary(i,1)="no find!"
end if
next i
.[b2].resize(ubound(mary,1),1)=mary
end with
end sub
3樓：矮漢恨天高
既然使用了vba就沒必要再使用內建函式，vba可以把vlookup重新定義。
4樓：毋亙
vba不見得比內建函式快哦
5樓：匿名使用者
上傳附件 我看看
留個聯絡唄
excel用vba巨集中用for迴圈將一列滿足條件的後面加上需要的數值比如
直接寫個公式就可以了。假如你那個1在的列是b，在c裡寫公式if b1 1,a 空 然後填充就可以了。如果一定要用vba,那就讀出來單元格的內容，然後根據內容填充就可以了。sub aaa for i 1 to range a65536 end xlup row if cells i,1 張 and c...
如何在啟用excel時自動執行vba的某個巨集
1 首先將excel文件 預設新建副檔名為xlsx 另存為啟用巨集的工作簿，副檔名為xlsm。2 按下組合鍵alt f11快速切換到vba視窗。3 進入vba視窗後的介面，如圖所示。4 雙擊thisworkbook後，會彈出一個 視窗。6 儲存，關閉，重新開啟excel 副檔名為xlsm 文件，效果...
EXCEL的一些問題，VBA類的巨集
方法有很多，比如elseif語句，如下。sub deletewords dim i as long for i 2 to 501 第一個刪除詞 0 then rows i i delete shift xlupi i 1 else第二個刪除詞 0 then rows i i delete shift...