返回列表 上一主題 發帖

[發問] 請問有無可以取代VLOOKUP函數的VBA寫法...

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
1# 跳轉到 »
發表於 2015-3-27 23:59 | 顯示全部帖子
未下載附件初學者亂回單純參考..剛測了一下有把格式複製過去(紅字粗體)
可以用Cells.Find跑VLOOKUP
cy = Sheets(2).Cells(i, "D")
Sheets(1).Select
Set kx = Cells.Find(What:=cy, After:=ActiveCell)
另外多條件也可以用and
if cells(1,1)="項目" and cells(1,2)="價格" then
格式部分也可以在程序加上
改紅色字體
Cells(2, 2).Font.ColorIndex = 3
填滿黃色
Cells(2, 2).Interior.ColorIndex = 6

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題