Excle VBA Code для поиска существующих данных в sheet2

Question

Мне нужен код для элемента ниже

если значение данных, введенных в ячейку B9 в sheet1, существует в sheet2. Столбец A2: A5000, идентифицировать и заменить существующую запись

еще создать новую строку и обновить детали

Answer 1

Я начал это для вас, вам просто нужно закончить замену кода. Вы можете использовать мои подсказки в msgboxes для этого.

Option Explicit
Sub find_and_replace()
Dim whSrc           As Worksheet: Set whSrc = Worksheets("Sheet1")
Dim whDest          As Worksheet: Set whDest = Worksheets("Sheet2")
Dim strToFind       As String: strToFind = whSrc.Range("B9").Value
Dim RngToLookIn     As Range: Set RngToLookIn = whDest.Range("A2:A5000")
Dim rngFoundRange As Range


Set rngFoundRange = RngToLookIn.Find(What:=strToFind, SearchDirection:=xlNext)

If Not rngFoundRange Is Nothing Then
    'Your replace code
    MsgBox ("Found in Row: " & rngFoundRange.Row)
Else
    'not found, your new row code goes here
    MsgBox ("Last row: " & RngToLookIn.Find(What:="*", SearchDirection:=xlPrevious).Row)
End If

End Sub

пс. В следующий раз не начинайте свой пост с "мне нужно". Покажите, что вы уже закодировали, в чем ваша проблема и т. Д.