VBA：搜索一个值，替换同行不同列的值

Question

B 列中有零件号，C 列中有序列号，E 列中有每个 part/serial 组合的最近检验日期。我需要将检查日期更新为另一个单元格中引用的新日期。我试图添加一个图像，但它不会让我。我将尝试重新创建下面的 excel 图片：

示例：

  B                            C                D               E

部件号___________序列号________________检验日期

75750-0001-0000___________0002______________________9/15/2014

更新信息：

  O                            P                     Q

部件号___________序列号_______检验日期

75750-0001-0000___________0004_______________8/24/2015

O5 有零件号，P5 有序列号，Q5 有检验日期part/serial。我需要单击一个按钮并让检验日期更新列表中正确的 part/serial 编号。（实际列表要大得多，因此手动执行会非常耗时）。没有重复或类似的东西。任何帮助将不胜感激。

Answer 1

这里的想法是做一个双循环。搜索正确的行并更新日期。

Dim rng as Range
Dim rngInspection as Range

Set rng = Range("B2:EX") -- Range of the left table
Set rngInspection = Range("O2:P5") -- Range of the right table

For Each rowInspection In rngInspection.Rows

   Dim part as string, serial as string, inspectionDate as String
   part = rowInspection.Cells(1).Value
   serial = rowInspection.Cells(2).Value
   inspectionDate = rowInspection.Cells(3)

   For Each row in rng.rows
       If (row.Cells(1).Value = part And row.Cells(2).Value = serial) Then
            row.Cells(4).Value = inspectionDate
       EndIf
   Next row

Next rowInspection

VBA：搜索一个值，替换同行不同列的值

VBA: Searching for a value, replace value in different column but same row

excel

vba

replace

find