VBA, чтобы найти конкретное слово и скопировать значение в другую ячейку

Question

Ищу помощи с vba.

Я хочу найти в столбце A «Сводка CAMBUSLANG» и, если он найден, назначить значение, указанное в столбце D, другой ячейке для разговора, скажем, столбец A другой электронной таблицы.

любая помощь будет принята с благодарностью.

Answer 1

Используйте метод Range.Find , чтобы найти определенную строку в столбце A, и свойство Range.Offset , чтобы перейти к столбцу 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