在表2中使用VLOOKUP函數在A列中查找B20

VLOOKUPA2表2 A B 2 0

如果不懂如何生成按鈕及關聯程序再追問，這裏不解答這部分了。

因爲你表達的有歧義，故下面給三種方法。

'一、爲指定單元格寫入公式（稍微修改指定單元格也可以是變量）：

Sub 爲單元格寫入公式（）

Range(＂B2＂).Select

ActiveCell.Formula = ＂=VLOOKUP(A2，表2!A:B,2,0)＂

'ActiveCell.Formula = ＂=VLOOKUP(A:A，表2!A:B,2,0)＂

'ActiveCell.FormulaR1C1 = ＂=VLOOKUP(RC[-1]，表2!C[-1]:C[0],2,0)＂

'ActiveCell.FormulaR1C1 = ＂=VLOOKUP(C[-1]，表2!C[-1]:C[0],2,0)＂

End Sub

'二、解釋VLOOKUP函數，在指定單元格引用查找值：

Sub 指定單元格查找引用（）

Dim m

With Sheets（＂表2＂）

For m = 1 To .[A65536].End(3).Row

If .Cells(m, 1) = Sheets(1).Cells(2, 1) Then

Sheets(1).Cells(2, 2) = .Cells(m, 2)

End If

Next

End With

End Sub

'二、解釋VLOOKUP函數，在指定列引用查找值。此處爲上代碼稍微優化，有通用性：

Sub 全部查找引用（）

Dim i, j

With Sheets（＂表2＂）

For i = 1 To .[A65536].End(3).Row

For j = 1 To Sheets(1).[A65536].End(3).Row

If .Cells(i, 1) = Sheets(1).Cells(j, 1) Then

Sheets(1).Cells(j, 2) = .Cells(i, 2)

End If

Next

Next

End With

End Sub

怎樣在VBA指令中調用Excel函數

方法/步驟

打開 Microsoft Office Excel 2007，點擊 “開始” ->“Excel 選項”。

在彈出的對話框中，選擇“常規”選項卡，並在右側點選“在功能區顯示‘開發工具’選項卡”，並單擊“確定＂。

在單元格A1中輸入“弧度”，單元格B1中輸入“角度”，單元格A2中輸入“3.14”，然後在單元格B2中輸入公式＂=DEGREES(A2)＂在按下回車後，該單元格輸出結果爲179.9087477。

注：DEGREES函數的作用是將弧度轉化爲角度。

接下來，我們用VBA實現同樣的功能。點擊“開發工具”選項卡，單擊“Visual Basic”，啓動Visual Basic編輯器。

在“Microsoft Excel 對象”上點鼠標右鍵，依次點擊“插入” ->“模塊”，創建“模塊1”，並在該模塊中輸入內容：

Sub 轉換（）

MsgBox Application.WorksheetFunction.Degrees(3.14)

End Sub

點擊“運行子過程/用戶窗體”按鈕，在彈出的對話框中選擇“轉換”，然後點擊“運行”按鈕。

程序彈出對話框，結果與在Excel中利用公式輸出的結果一樣，只是有效數字的位數不一樣，這可以根據需要加以取捨。

總結：在進行VBA編程時，可以通過WorkSheetFunction方法來實現對Excel函數的引用，藉此，可以方便我們對函數的引用，避免花費更多的時間在自定義函數上，有效的提高了工作效率。

以上就是在表2中使用VLOOKUP函數在A列中查找B20的詳細內容，更多請關注本站其它相關文章！