當前位置:成語大全網 - 書法字典 - 用VB編程代替VLOOKUP

用VB編程代替VLOOKUP

右鍵單擊sheet2中的表名,查看代碼並粘貼以下代碼。

私有子工作表_Change(ByVal目標作為範圍)

如果目標。列& lt& gt1然後退出接頭

變暗rng As範圍

設置rng = Sheet1。範圍(" a:a ")。尋找(目標)

如果不是rng就什麽都不是

目標。Offset(0,1) = rng。偏移量(0,2)

如果…就會結束

末端接頭