从A列中搜索值并在D列中粘贴B的值

Question

我在下面有一个表格，其中包含A列和B列的详细信息。我想在A中搜索C中的字符串，并在VBA的帮助下粘贴D列中的B列值。

实施例： -

A         B            C           D 
STRAT   Strategy    s_strat_nhnh  Strategy
TRDMK   Trademarks  bng_trdm_ndnd Trademarks

Answer 1

TRDMK不在bng_trdm_ndnd中。 但如果我做对了，你想要的东西就像

然后代码是：

Sub Test()
CStartRow = 1
CEndRow = 5
AStartRow = 1
AEndRow = 3

For I = CStartRow To CEndRow
    For J = AStartRow To AEndRow
        If InStr(UCase(Range("C" + CStr(I))), UCase(Range("A" + CStr(J)))) Then
            Range("D" + CStr(I)) = Range("B" + CStr(J))
            Exit For
        End If
    Next J
Next I
End Sub

Answer 2

如果您不想使用VBA，则可以使用此公式 d1单元格中的公式为：

=IF(ISNUMBER(SEARCH(A1,C1)),B1,"")