請教關於Vlookup再程式EXCEL VBA上的使用, - Excel程式區

[發問] 請教關於Vlookup再程式EXCEL VBA上的使用,

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-10-3 19:43 | 顯示全部帖子

本帖最後由 lpk187 於 2015-10-3 19:46 編輯

回復 1# s13983037

其用法和Excel函數用法一樣只是把位置範圍的寫法改成VBA格式寫法

Public Sub ex()
Dim Rng As Range
For Each Rng In Sheets(1).Range("a2:a11")
Rng.Offset(, 1) = Application.VLookup(Rng, Sheets("115").Range("a1:d" & Cells(Rows.Count, 1).End(xlUp).Row), 4, 0)
Rng.Offset(, 2) = Application.VLookup(Rng, Sheets("220").Range("a1:d" & Cells(Rows.Count, 1).End(xlUp).Row), 4, 0)
Next
End Sub

複製代碼

靜思自在 : 心中常存善解、包容、感思、知足、惜福。