vba - 复制到定义单元格中的值并将该值粘贴到列表底部的宏

Question

我想构建一个宏，它只会从特定单元格（B2）的 vlookup 函数中复制返回值，并将其粘贴到列的第一个空单元格（同一工作表上的 H 列从单元格 H2 开始）。

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