Excel VBA查找特定单词并将值复制到另一个单元格

我正在寻求有关vba的帮助

我想在A列中搜索“CAMBUSLANG摘要”，如果找到，则将D列中的值分配给另一个单元格，例如另一个电子表格的A列

非常感谢您的帮助。

使用在A列中查找您的特定字符串，并移动到D列：

Option Explicit

Public Sub Example()
    Dim FoundAt As Range
    Set FoundAt = Worksheets("SearchSheet").Columns("A").Find(What:="Summary of CAMBUSLANG", LookIn:=xlValues, LookAt:=xlWhole)

    If Not FoundAt Is Nothing Then 
        Worksheets("AnotherSheet").Range("A1").Value = FoundAt.Offset(ColumnOffset:=3).Value
    Else 'nothing found
        MsgBox "'Summary of CAMBUSLANG' not found.", vbCritical
    End If
End Sub

---

到目前为止，您研究/尝试了什么，您的具体问题是什么？然后查看您的问题，包括您的代码和任何适当的错误。为什么不在这里使用Vlookup函数呢？我有另一个电子表格，有13个报告期，我为每个报告期设置了一个录制的宏和一个按钮。当报告期结束时，单击按钮，它会转到各种电子表格等，获取值（基本上保存手动输入）。我的问题是一个电子表格，特别是有一个金额代码列表，底部的金额是一个总数（我想要的数字），对于某些报告期，代码可能会被删除，而不是我记录的宏从D33中提取总值，而是从D32中提取，因此插入了错误的数字。此外，我使用搜索引擎搜索了互联网，并认为我会尝试在这里寻求帮助，因为我找不到任何有帮助的东西