vba - 定義されたセルの値にコピーし、その値をリストの一番下に貼り付けるマクロ

Question

特定のセル (B2) の vlookup 関数からの戻り値のみをコピーし、それを列の最初の空のセル (セル H2 で始まる同じワークシートの列 H) に貼り付けるマクロを作成したいと思います。

Answer 1

キャプチャする数式がセル B2 にある場合は、次の小さなマクロを試してください。

Sub surface()
    Dim n As Long
    n = Cells(Rows.Count, "H").End(xlUp).Row + 1
    If n < 2 Then n = 2
    Range("H" & n).Value = Range("B2").Value
End Sub

Answer 2

このマクロをボタンに割り当てます。

Sub CopyVLookup()
    Range("H" & Rows.Count).End(xlUp).Offset(1) = [B2]
End Sub

これにより、列内の値を持つ最後のセルが検索Hされ、その下のセルに移動して、その値が現在の値と等しくなるように設定されます。B2

Answer 3

これは動作するはずですが、テストはしていません:

dim lookingFor as String
dim fromVlookup as String
dim whereToSave as Long

lookingFor = ActiveWorkbook.Worksheets("sheet1).Cells("2", "B").Value
fromVLookup = = Application.WorksheetFunction.VLookup(lookingFor, "A1:B2", 2, 0)
whereToSave = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row

ActiveWorkbook.Worksheets("sheet1).Cells(whereToSave, "H").Value = fromVlookup