Question

我想找到Column L中具有特定值的所有单元格，并返回与找到的单元格相同的行Column D中的值。

到目前为止，我只能返回一个结果，这将是我列表中最重要的结果，但我想找到所有其余结果，我不知道要使用的代码。

只是为了进一步解释：单元格D11中的值是我想要在工作表“主列表”的列L中找到的值。据说我在单元格L13，L15和L20中找到了值，我想在单元格D13，D15和D20中返回值进入ws的单元格“C37:C39”。注意：没有。具有该值的单元格可能会有所不同，因此返回的值只会从C37向下显示（类似于自动多重选择，复制和粘贴）

这是一个开始滚动的小事：

Sub FindRelatedProducts()
Dim cell As Excel.Range
Dim D11Value As Variant
Dim D11Row As Variant
Dim ws As Worksheet: Set ws = Sheets("RShip")

Set cell = ws.Range("D11")
    D11Value = cell.Value
    With Sheets("Master List")
        D11Row = Application.Match(D11Value, .Range("L:L"), 0)
        If Not IsError(D11Row) Then
          ws.Range("C37") = .Range("D" & D11Row).Value
        End If
    End With
End Sub

Answer 1

这是使用范围变量的示例。

您需要定义输入数据范围的范围和输出数据的范围。然后，在VBA中，您需要将wrk，inRng和outRng变量更改为您定义的命名范围，并更改for和{{中的列索引1}}块以匹配您要查找的数据的列索引。

if

在一列中查找具有相同值的单元格，并从同一行的单独列返回值

1 个答案: