Excel VBA 質問スレ Part79

[158 デフォルトの名無しさん 2023/02/10(金) 22:07:47.74 ID:ix/AvTMJ]

参考コード
Option Base 1
Sub x()
Dim a(10, 2)
For i = 1 To 10
a(i, 1) = i: a(i, 2) = i & "だよ"
Next
MsgBox WorksheetFunction.VLookup(7, a, 2)
End Sub